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FOREWORD 


The present report describes extensions to and generalizations of a radi- 
ation transport calculation procedure developed over a period of several years 
at first the Aerotherm Corporation, then the Aerotherm Division of the Acurex 
Corporation, Mountain View, California. The initial effort was done under Con- 
tract N >9-6719 for the NASA Manned Spacecraft Center, Structures and Mechanics 
Division. This effort included the development of the basic radiation properties 
and transport models. A subsequent effort was performed under Contract NASl-9399 
for Langley Research Center, Applied Material and Physics Division. On this ef- 
fort, an equilibri'om chemistry capability was incorporated into the procedure. 

The present effort was performed under Contractl-12160 for the Langley Research 
Center, Hypersonic Vehicles Division. On this effort the radiation transport 
procedure was generalized to allow the equivalent width approximation, and 
molecular species properties associated with the Teflon and Silicon systems 
were added to the radiation model and the manner in which the far wings of 
the hydrogen lines are calculated was modified. 


U 


f 










ABSTRACT 


A procedure is described for implementing the RAD/EQUIL/1973 program, 
a general purpose radiation transport calculation procedure « Instructions are 
given which allow the program input to be prepared, the output to be interpreted, 
the operating procedures identified which must be followed and the meaning of 
the error messages to be understood* The structure of the program is described 
through a verbal description, a Fortran variables list and a listing of the 
program. 
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USER'S MANUAL FOR RAD/EQUTL/1973 
A GENERAL PURPOSE RADIATION TRANSPORT PROGRAM 

by 

W. E. Nicolet 


SECTION 1 
INTRODUCTION 

This report describes the RAD/EQUIL/1973 computer program which can be 
viewed as a modified and generalized version of the Aercthcirm developed RAD/ 
EQUIL program which has been described elsewhere (References 1 and 2) . The 
novel features of the RAD/EQUIL/1973 include (1) the capability to solve the 
transport equation by means of the (very rapid) equivalent width method as 
described in Reference 3; (2) the consideration of the far wings of hydrogen 
lines as part of the continuum transport events # which allows accurate calcu- 
lations for elemental systems dominated by hydrogen; (3) the generalization 
of the code to allow many of the radiation properties to be specified by card 
input; and (4) the provision for efficient flow field coupling. 

A general elemental system is allowed, although certain constraints must 
be satisfied (see Section 2) . As of this writing, solutions have been obtained 
for various combinations of the C-H-O-ll-He-Si system which is representative of 
shock layers adjacent to many cd>lating bodies. Local thermodynamic equilibrium, 
is assumed to exist at all times. Molecular, atomic and ionic species are all 
considered with those which appear in the 3000*K to 1S,000^K temperature range 
and 0.1 to 10 atmospheres pressure range being given primary consideration. A 
description of the properties model was given in Reference 1 and updated in 
Reference 3. 

The RAD/EQUIL/1973 code requires as input infoxmation sufficient informa- 
tion to describe the spatial distribution of the thermodynamic state. This 
information can be obtained in a variety of forms, e.g., pressure, temperature, 
concentrations of base species (or elements) , or enthalpy can replace tempera- 
ture, or shock wave conditions can be specified. From'these data it calculates 
the intensities along a ray; or if the gas is confined in a plane - parallel 
slab', it can calculate radiant fluxes directly. If the radiation is to be ob- 
served behind a window, frequency dependent transmission factors are included 
which can be used to simulate its transmittance. The wall radiation can also 
be included and allowed to interact with the gases. 
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The following seven sections describe the operating aspects of the code 
in terms of INPUT, OUTPUT, SAMPLE CASES, OPERATING PROCEDURES, ERROR MESSAGES, 
CODE STRUCTURE and FORTRAN VARIABLES LIST- A listing is presented in the 




SECTION 2 


INPUT 

The program uses punched cards as the input media. Two data decks are 
required, A and B. Deck A contains basic radiation and spectroscopic data, 
e.g., f-numbers, line widths and centers, definition of line groups, energies 
and statistical weights of levels, etc. Deck A is not changed unless changes 
to the basic radiation model are to be performed j consequently, it is often 
referred to as permanent data. Deck B contains case data such as path length, 
temperatures, pressures, etc. 

Figure 2-1 shows a typical data deck setup. Permanent data is always 
read in first, followed by casp data. The first set of case data must be 
complete; that is, it must include a setuo of the spatial nodes and the 
boundary conditions. The following cases can be read, in abbreviated form. 
Each case starts with a control card (KR, title) and ends witli a C4 card. 
Successive cases are read in and run until a 1 appears on the C4 card. This 
terminates the run. A complete description of the two data decks is given in 
Table 2-1. 




Z.v~ -sstop* 


TABLE 2.1 


INPUT CARDS 


DECK A - PERMANENT DATA 

Group I - Basic Radiation Data 

Card 1, Format (12, 2X, 12, 2X, 12, 2X, 12) 

Field 1, (Columns 1-2), NHV 

This is the number of line groups to be included in the 
calculation (maximum of 25) • A discussion of the judge- 
ments involved in selecting the appropriate number of 
line groups is given in the discussion of the FHVM and 
FIIVP values. 

Field 2, (Columns 5-6), NXI 

This is the number of special hydrogen lines for which 
no (half) half width data is read in. VJhen the hydrogen 
lines are to be included, NXI « 4. Otherwise, it equals 
zero. The four lines given special treatirant are the 
Lyman a and 0 and the Balmer a and 0. Half wiath informa- 
tion is read in for each of the remaining hydrogen lines. 

Field 3, (Columns 9-30), IZZ 

This is flag which determines how the far wings of the 
special hydrogen lines are handled. If IZZ = 0, the far 
wing contributions are added into the next lower lying 
line group. If IZZ - 1, they are added into the continuum. 

Field 4, (Columns 13-14), NOUT 

This variable determines if Deck A is to bo read in. If 

NOUT equals zero, Deck A is read in. If NOUT is greater 

than zero, the remainder of Deck A is not read in.. 

Group 2 - Atomic ^Statistical and Continuum Radiation Dat a 

A sequence of cards is to be used to describe the atomic energy levels, 
degeneracies and continuum radiation provided for each of the radiat- 
ing species. The input is grouped by families where a family is 
made up of species having the same atomic number but different atomic 
charge. For each family, the first set of data is input for the most 
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highly charged specie, then additional data follows for the 
succeeding (lessor charged) species down to the neutral atom. 
Radiation data for the first specie of each family is obtained 
by estimate, so it should not be present in significant con- 
centrations. The data for a two family 0, N s;, stem might be 
input as follows: 



data] 

1 

o 

data] 

[0 

data] 


data] 

[N-^ 

data] 

In 

data] 


[ Blank ] 

For each specie the follovTing data is required: 

Card 1, Format (313, Ell. 3, E10.3, 40X, 2A4) 

Field 1 (Columns 1-3), lAT 

Atomic number of tho specie. 

Field 2 (Columns 4 - 6) , NN 

Number of photoionization edges to be considered explic- 
itely for the specie. 

Field 3 (Columns 7-9), NBN 

NBN is set to 1 if the low frequency contributions are to 
be treated with the approximate theory due to Biberman 
and Norman (the usual case) . NBN is set to 0 if the low 
frequency contributions are to be treated differently. 

Field 4 (Colums 11 - 20) , Z 

The charge on the residual ion. Thus, Z « 1 for neutrals, 
2 for singly ionized ions, 3 for doubly ionized ions, etc. 

Field 5 (Columns 21 - 30) , XXOH 

The ionization energy for the species in ev. 

Fields 6 and 7 (Columns 71-78), BETA, BETB 
Two part alphanumeric name for the specie. 

Card 2, Format (8E10.3) 

Fields 1, 2, 3... (Columns 1 -10, 11 -20, 21 - 30, etc.), GEE 
These are thv* statistical weights of the atomic end ionic 
levels. For unlumped leVels GEii « 2J + 1 where J is tiie 
inner quantum number of the level and can La obtained from 
tabulations (Reference 4 )• For lumped levels, GEE is 
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obtained by sununing the contributions from individual 
levels. The program is currently dimensioned to handle 
8 quantum levels per specie, maximum. 

Card 3, Format (3110. 3) 

Fields 1, 2, 3... (Columns 1-^10, 11-20, 21-30, etc.), EPS 
These are the energies of the levels (in ev) , For nlumped 
levels, valu^^ can be obtained from tabulations (Reference 4). 
For lumped values the equation 

EPS. _ ZGEE * EPS 

I lumped ^ TGEE 

is applicable where the summations are taken over all the 
levels to be lumped. 

Card 4, Format (8E10.3) (Skip if NBN = 0) 

Field 1 ^Columns 1-10), HVG 

In their theory, Biberman and Norman supply two approximate 
relations valid in the very lov/ frequency range and the 
moderately low frequency range, repsectivoly. This value 
(iIVG) specifies where (in cv) Uie code LransisLs Irom one 
relation to the other for the particular specie in question. 

Field 2 (Columns 11-20), TTHHES 

This value and the two following in succeeding fields form 
a temperature dependent correction v^hich can be applied to 
the low frequency Biberman and Norman relations. The 
correction has tlie form 


M * Vi| 

I BN 


for 


T < T 

^ ^ threshold 


and 


p « Vii X (coef, + coef„ * T) 

•BN ^ 

for 'f > 

where TTHItES is the threshold temperature. 

Field 3 (Columns 21-30), COEFA 

See the discussion given for the previous field. This value 
is the first coefficient - cot:f 
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Field 4 {Columns 31-40), COEFB 

See the discussion given for the previous two fields, 
value is the second coefficiei. - - coef2« 

Card 5, Format (8E10.3) (skip if NBN = 0) 

Fields 1, 2, 3 (Columns 1 - 10, 11 -20, 21 - 30, etc.), XIS 

These are the 5 factors employed in the Biberman and Norman 
theory. Eight values must be given for each specie at the 
frequencies 0, 1, 2, 3, 4, 6, 8, 10 ev. 

Card 6, Format (59X, E14.5, 13) (skip ix NN =» 0) 

Field 1 (Columns 60 -V 3), HVT 

This is the threshold frequency for the first photoionization 
level to bo considered cxplicitely (ev) . 

Field 2 (Columns 74 - 76), LEV 

Index on the absorbing level assigned to the first photo- 
ionization level. 

Card 7, Format (17X, 7E9.2) (skip if NN = 0) 

Field 1, 2, ... 8, (Columns 18 -26, 27 - 35,...), CSS 

These are the cross sections a in cm* x 10 ‘‘used to define 
the first photoionization level to be considered explicitely. 
Eight values must be given at the following frequency incre- 
ments measured from the threshold frequency (ev) s 0, 1, 2, 

4, 6, 8, 10, 20. 

Cards 8, 9 (skip if NN £ 1) 

The input data given on these two cards is identical to that 
given on cards 6 and 7 , except that it is applicable to the 
second photoionization level to be considered explicitly 

Cards 10, 11, ..., Nl-1, N1 (skip if NN < 2, ... etc.) 

This defi;.es the input Tor the remaining photcionization levels 
assigned to the first specie. Not that a maximum of 30 
individual photoionization levels (summed over all species) are 
allowed in a given data deck. Card Nl is the last card assigned 
to the continuum data for the first specie. 

Cards Nl -t 1, . . . N2 

The input data given on this card set is identical to that given 
on cards 1 to Nl of Group 2, except that it applies to the 
second radiating specie in the family. 




Cards N2 + 1, , . • N3 

Data for the remaining species jin the first family and in the 

subsequent families are given on these cards, again in the 

saif^ form as that given on cards 1 to Nl of Group 2. 

Card N3 + 1 

A blank card is read to identify the end of the ^.roup 2 data. 

Group 3 " Molecular Species Radiation 
Card 1^ Format (20A4) 

Fields 1, 2, ... (Columns 1-4, 5-8, ...), BA 

These are the alphanumeric names of the species which have 
molecular band system absorption coefficients progranuned 
into subroutine Mli. A maximum of 16 are allowed. A typical 
list might include the following: NO, 0^, CO, H^, C^# 

CN, , iT, C 3 , OSi, 

Card 2, Format (20A4) 

Fields 1, 2, ... (Columns 1-4, 5-8, ...), BB 

Those are the alphaniimcric names of the species which 
have molecular band systems which are to be included in 
the calcualtions. This list must bo selected only from 
the BA list and must be in the same order, e.g., C*", 

h “, Cy 

Group 4 - Line Group Cpecification 

Cards 1, 2, ... N4, Format (6£12.^) 

Field, 1,2/ ... (Columns 1-12, 13-24, etc.), FHVM 

These are the low frequency boundaries on the line groups. 

An FHVM value along with an FHVP value defines a frequency 
incremont. All the lines with their centers within that 
increment detine a line group. The continuum properties 
and the black body functions are evaluated at only one fre- 
quency point for each line group. Therefore, the frequency 
boundaries on the line group should not be so wide as to 
allow appreciable changes in these quantities. In addition, 
contributions to the transport fress purees outside the 
boundaries of the line group are not taken into account. 
Therefore, the boundaries, on a line group should never be 
too close to the center of a line within the group. 
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Vi2, Format (6E12.4) 


Cards NX + 


1, NX + 2, • , . 


Field 1, (Columns 1^12, 13 --24, etc,), FHVF 

These are the high frequency boundaries on the line groups. 


Cards N2 + 1, N2 + 2, ... K3, Format (6E12.4) 

Field 1, (Coltamns 1-12, 13-24, t^tc.), FHV 

These are the frequencies at which the continuum properties 
and the black body function are evaluated for each line 
group. They are usually taken to be roughly midway between 
FHVP and FlIVM. Thus;, FHV is often referred to as the “average** 
frequency of the line group. 


Group 5 - Hydrogen Index (Skip this group if NX! = 0) 

Card 1, Format (4012) 

Field 1 (Columns 1*2, 3*4, etc.), lA 

These arc the indices on the line groups which contain the 
special hydrogen lines (one per line group, maximum) . The 
line groups are always numbered sequentially starting with 
those at the lowest frequency. 


Group 6 - Humber of Lines Per Line Group 
Card 1, Format (4012) 

Field 1, (Columns 1-2, 3-4, etc.), NU 

This is the number of lines which are situated within each 
line group and which are treated individually. This ninnber 
must equal tlie number of line data cards read in for each 
group. Whenever a line is incorrectly assigned to a line 
group the program will stop and write out the message **LBI£ 
CENTER OUT OP GROUP FREQUENCY RAN(5E." TO satisfy the dimen- 
sion limits, the condition must be satisfied 


No. lines in group x No. freg points per line < 200. 

where the number of frequency points per line is usually taken 
to be 15. If IZZ » 0 and NXl ^ 0, the far wings of each of 
th^* hydorgen lines are included in each of the adjacent and 
just lower lying (in frequency) line groups (AJLL line group) * 
The program views each of the kJhh line groups as having an 
extra line and, consequently, allows a maximum of lines from 
the input deck of 



(No. of lines input to group + 1) 

X No. of frequency points per line 200 


Group 7 - Base Data for Line Transitions 

Cards 1^ 2 , No. of Lines, Format (2A4, 12, F104, 2E12.1, 3E12.2) 

Field 1 and 2 , (Columns 1-8), BL, BM 

These are a two part alphanumeric name for the species to 
which the line is assigned. 

Field 3 (Columns 9 - 10) , ND 

This is the index for the absorbing level for each line. 

It is relative to the input data read in under Group 2 
for each specie. Thus, ND - 2 indicates that the line is 
to be assigned to the second level of species BL, BM with 
an energy and statistical weight obtained from the Group 2 
data. Obviously, sufficient data must be input in Group 2 
to support al3 the assignments in the group. 

Field 4 (Colimns 11 - 20) , LXPN 

For nonhydr«^gen lines the (half) half width data for the 
stark broadening events are calculated by relations of 
the form 

T 

Yj^(T) - Yj^(10000®K) (][qqq1q) 

where EXPN is the temperature exponent for each line. 

For common hydrogen lines, set 

EXPN « n* 

where is the principal quantum of the upper level assigned 
to the line transition. 

For a special hydrogen line* set 

EXPN » 0 

Field S (ColuMns 21-32), HVL 

Frequency of the center of the line (in ev) « 

Field 6 (Columns 33 - 44) , FF 

This is the f n;imber of the line when the lower level of 
the transition is unlumpod. Nhen it is lumped 
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Where GEE is 
level of the 

Field 7 (Columns 4r> - 56) , GAMP 

For non hydrogen lines, this is the (half) half width per 
free electron of each line due to Stark Broadening, evaluated 
at 10,OOO^K, 

For conanon hydrogen lines this is 

GAMP =n! + nf, 

that is, the sum of the 5th powers of the upper and lower 
principal quantum numbers assigned to the line transition. 

Field 8 (Columns 57 -68), XNOL 

Each of these is the number of lines in a given line group 
which have identical properties. It is used only when the 
properties of seveiral lines are to be averaged and trans- . 
port calculated for the averaged line, then multiplied by 
the number of original lines to obtain the total. Only 
lines in the low frequency region (less than 5 ev, roughly) 
should be averaged in this manner. 

Field 9 (Columns 69 - 80) , GUP 

CidCh of these is the statistical weight of the upper level 
of the line (used in resonahee broadening calcdlation, only). 

Group 8 - Frequency Nodes for the Continuum 
Card 1, Format (2413) 

Field 1 (Columns 1 - 3) , NIUVC 

This is the number of continuum frequency points (a maximum 
of 50 is allowed) . 

Cards 2, 3, Format (6E12.1) 

Field 1 (Columns 1-12, 13-24, etc.), FHVC 

These are the continuum frequency points v^ich are selected. 
Care must be taken to insure that thi photoionization edges 
in the ultraviolet are adequately resolved. Xn addition, 

< if HXI 0 and IZZ B 1, pairs of sequential continuum fre- 

quency points must be selected to coincide witii the boundary 
points for the line groups containing the special hydrogen 
lines. 


PF « 


GEE 


lumped 


the statistical weight of the unlumped lower 
transition. 
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DEC* B - CASE DATA 


Group 1 - Control Card and Title 
Card 1, Format (2011 « 15A4} 

Field 1 (Columns 1>20), KR 

Column 1 determines the type of the calculation 

0 Calculate intensities 

1 Calculate fluxes 

2 Calculate absorption coefficients 

3-6 Do not use 

.Column 2 sets the conditions for the radiating layer 

0 Allows arbitrary specification of thermo- 
dynamic state across the layer 

1 Allows arbitrary specifications of thermo- 
dynamic state but requires that the proper- 
ties be uniform across the layer 

2 Allows the thermodynamic state to be determined 

from specified shock wave cmditions. The 
properties behind the shock wave must be uniform 
across the layer. 

Column 3 determines if molecules are to be included in the 
calculation 


0 Molecules can be included with the bandless model 
approximation (standard case) 

1 Molecules are not included 

2 Molecules can be included using the JORL approxi- 
mation (this option is not active for all code 
versions) 

3 Molecules cam be included using an Elsasser Band 
model applicable for infraured band systems (this 
option is not active for all code versions) . 

Column 4 determines how line contributions are calculated 

. 0 Include lines but allow weak lines to be treated 
approximately 

1 Xnolude lines in full detail 

2 Biuilude lines 

3 Employ aguivalent width approximation (much faster 

than 0 or 1 options if H absent or if XEZ « 1) 
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Column 5 determines the optical conditions of the wall 

0 Requires a coid^ black wall 

1 Regures a black wall but allows it an arbxtrary 
temperature 

2 Allows a wall with an arbitrarily specified 
temperature, emittance and/or transmittance 

3 Arbitrary wall emittance and transmittance, sets 
TW « TEEU) if KF{1) = 0 

4 Black wall, sets TW « TEE{1) if Kl {!) « 0 

5 Transparent wall 

6# 7, 8 Same as 3, 4, 5 (respectively) except that the 
boundary condition on the outer boundary is 
assumed to be black body at TEE (NY) 

Column 6 specifies the type of flux or intensity calculated 
at the wall 

0 Incident f3ux or intensity 

1 Flux or intensity transmitted through the surface 

Column 7 determines how the thermodynamic state conditions of 
the radiating species are obtained 

0 Uses the resident values 

1 Performs chemistry calculation 

2 Reads in mole fractions, temperature pressures and 

(when required) density. The density is required 

in the density stretched coordinate system (KH (13) > 2) 

Column 8 determines whether frequency or wave length is used 
for output 

0 Uses frequency, hv (ev) 

1 Uses wavelength, A (microns) 

2 Uses frequency, prints out B or F^-E (more 

accurate when transport is approaching the diffu- 
sive limit). This option is not active for KP^17) « 1. 

Column 9 determines if the program is to check the validity of 

the continuum frequency grid 





0 The grid is checked - use for energy transfer 
calculations 

1 The grid is not checked use when only a selected 
part of the spectrum is of interest. 

Column 10 determines where the program obtains (1) normalized 
spatial nodes, (2) index on spatial nodes to determine where 
fluxes or intensities are to be printed out and (3) the 
optical properties of the wall. 

0 Uses resident values 

1 Reads in new values (required for first case) . 

Column 11 - Not used. 

Column 12 determines if the chemistry input package is to be 
read 

0 Read in new data for element and molecular, atomic and 
ionic species? input data will not appear in output. 

1 Use resident elemental and species data 

2 Same as KR(12) « 0 except that data will appear in ! 

output. 

Column 13 determines nature and source of spatial length 
parameter, DELTA 

0 Reads it in as optical path length 

1 Takes it equal to the stand off distance of the bow 

shock of a sphere (the spherical radius (cm) is read 
in) • 

2 Same as KH(13) - i except that the spherical radius 
is in feet 



Set equal to edge value for a density stretched coor-* 
dinate system, i.e. 

DELTA « 

e 

where ^^edge 

o 

where Z => 1 unless the code is modified internally. 
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Column 14 


Column 

Column 

Column 

0 

1 

2 


15 

16 


Not used 


17 determines the amount of radiative output 
Normal radiative output 
Extensive, radiative output 
No output from radiation calculations. 


Column 18 
Column 19 
Column 20 
Field 2 (Columns 21 


Not used 


80) , CASE 


This is the title of the case (alphanumeric) used for identi- 
fication of printed output* 


Group 2 - Chemistry Control Card (skip this ^roup if KR(7) - 0) 

Card 1, Format (2011, 5ni0.3) 

Field 1 (Columns 1 - 10) , KQ 

Column 1 determines which variables are used to specify thermo- 
dynamic state 

0 Temperature 

1 Not active 

2 Enthalpy (if KQ(5) = 0) or shoclc wave conditions 

(if KQ(5) « 1) 

Column 2 determines if chemistry package is to be read in (see 
KR(12), also) 

0 Use resident data 

1 Read in new data (required for first case) 

Column 3 must be the same as column 2 

Column 4 determines if second order partial derivatives are to 
be calculated for external use (they are not required for the 
radiation calculations) 

0 Does not calculate them (allows faster calculations) 

1 Calculates them (not active for all code versions) 



Column 5 determines if the shock is^ave option is to be used 

0 Not used 

1 Shock jump conditions will be calculated 

Column 6 determines tlie form of the A(I,J) array for external 
use (it is not required for the radiation calculations) 

0 Partial derivatives are obtained assuming that the 

olemental mass fractions can take on any value. 

1 The mass fraction of the last heavy (non-electron) 
element is forced to vary so that the elemental 
mass fractions always sum to unity. 

Column 7 determines the output from the chemistry subroutines 

0-8 Normal output 

9 No output 

Columns 8-20 Not used 

Field :? (Columi^s 21 - 30), THETA 

This is the anolr^ between the shock v’ave normal and the free 
stream velocity vector (e. g. THETA = 0 for a stagnation 
point at zero angle? of attack) . An entry here has meaning 
only when the shock wave option is to bo used. This is also 
true lor the nt?xt four fields. 

Field 3 (Columns 31 - 40), SVl 

This is the velocity (ft/sec) upstream of the shock wave. 

Field 4 (Columns 41 - 50) , SPl 

This is the pressure (atm) upstream of the shock wave. 

Field 5 (Columns 51 - 60) , SRl 

This is the density (Ib/ft^) upstream of the shock wave. 

Field 6 (Columns 61 - 70) , HS 

This is the static enthalpy (Btu/lb) upstream of the shock 
wave. 

Group 3 - Chemistry Input (Skip this if KR(7) ^ 1 or KR(12) « 1) 

Card 1, Format (I3,F7.0) 

Field 1 (Columns 1 - 3) , IS 

Number of elements in the system including electrons if considered 
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Cards 2,3, . *,IS, (One for each element, see Card 1, Field 1 of this 
group), Format(I3, 3A4, 4F10,5) 

Field 1 (Columns 1-3), KAT(K) 

Atomic number of element (99 for electron), cards must be 
ordered with this number ascending with electron last (when 
consi dered) 

Field 2 (Columns 4 - 15) ATA(K) , ATB(K), ATC(K) 

Name of element (used for output only) . For best looking 
output, elements with 3 or 4 letters (e.g., iron) should 
start in Column 6, elements with 5, 6, or 7 letters (e.g., 
carbon) should start in Column S, and elements with 8 or 
more letters (e.g., nitrogen) should start in Column 4. 

Field 3 (Columns 16 - 25), WAT (K) 

Atomic weight of element 

Group 4 - Thermodynamic Data (Skip this if KR(7) 1 or Kn(12) - 1) 

There are three cards for each molecular, atc't\ic, condensed, or ioni^. 
species. A total of 40 species of all types are allowed. The number 
of allowable condensed-phase materials is (12-IS) . A blank card after 
the last set concludes the thermodynamic data. The arrangement of 
these cards sets is of consequence in so far as it determines the 
base species upon which mass balances are performed, the first in- 
dependent set of base species being selected. Singular matrices can 
result from certain sets of theoretically-acceptable base species due 
to round-off errors. Furthermore, mass balances, etc. for the (NSP)th 
base species is obtained by difference. Therefore, the element 
represented by this base species should be present in appreciable 
quantities. For example, for air, molecular nitrogen is a good choice 
for the (NSP)TH base species. Except for these considerations, atomic, 
molecular, and condensed species can be arranged in any order. When 
ionized flows are considered, the atomic, molecular, and condensed 
species data must appear first and be followed by, first, electron 
species data, and then the ionic species data (which can be in any 
order) . The data format accepted by the program (described below) 
are as generated by the Aerotherm TCDATA program and are the same 
as that used in NAWEPS Report 7043, Thermochemical data decks have 
been generated for about 600 species, based mostly on curve fits of 
JANAP data. 





Cards 1, 4/ 7, ••• One for each molecule. Format (7{F3.0, 13), 

30X, 2A4) 

Fields 1, 3, 5 ... One for each element in molecule (Columns 
1--3, 7-9, 1 j- 15 ALPT(N) in each field 

Number of atoms (of atomic number given in subsequent field 
in a molecule of this species. If field one is zero this 
card is presamed to be end of thermodynamic data. 

Fields 2, 4, 6 ... One for each clement in molecule, (Columns 
4-6, 10-12, 16-18, ...), JAT(N) in each field 

Atomic numbers of elements in molecules (listed in ascending 
sequence) . 

Last Field, (Columns 73 - 80) 

Molecular designation (e.g. , SI02) for output 

Cards 2, 5, 8, ... One for each molecule, Format (6E9.6, 6X, F6.0, II) 

Field 1, (Columns 1 - 9), RA(J) 

Heat of formation of molecule at 298®K from JANAF base state 
(elements in most natural from at 298®K) , cal/mole. 

Fields 2-6, (Columns 10 - 18, 19 -27, 28 - 36, 37 - 45, and 
46 - 54), Cil(a,l), HC(J,1), RD(J,1), RE (J .1 ) ,. RF (J , 1) 

Constants appropriate to lower temperature range of thermo- 
dynamic data. Taking F2, F3,.;., as Fields 2, 3, etc., the 
curve fits are as follov/s with T in ®K, H in cal/mole, and 
S in cal/mole °K. 

Heat capacity, CP = F3 + F4* T t F5/T**2 

Enthalpy, H - H298 = F2 + F3* (T - 3000) + 0.5*F4* 

(T**2 - 3000**2) - F5*(l/T - 1/3000) 

Entropy, S == F6 + F^*LN (T/3000) + F4* (T - 3000) 

- 0.5*F5* (1/T**2 - 1/3000**2) 

Field 7, (Columns 61 - 66) , TU (J, 1) 

Upper limit of lower temperature range in ®K. (For condensed- 
phase materials which melt, it is appropriate to use melt tem- 
peratures) • 
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irield 3, (Column 67), KPHA(l) 

1 signifies gaseous species 

2 signifies solid species 

3 signifies liquid species 

Cards 3, 6, 9, ... One for each molecule, Format (6E9,6, 6X, F6.0, 

ID 

Fields 1-8, (Columns 1 - 67) 

Same as Cards 2, 5, 8 ... except use constants for upper 
temperature range and Field 7 is ignored. 

Last Card - h blank card is used to signify the end of thermodyncunic 
data. 

Group 5 - Nodal Input and Surfoce Properties (Skip this group if KR(IO) ^ 1) 
Card 1, Format (2413) 


Field 1, (Columns 1 - 3 ) , NIC 

This jfi the number of spatial stations at which transport is 
to be printed. This number must be equal to or less than 
20 for normal output or 1 for extensive output* 

Card 2, Format (2413) 

Field 1, (Columns 1 - 3, 4 - 6 . * • ) , NICN 

These are the indices on the spatial stations where transport 
is to be printed* The nodal points usually start with 1 
at the wall and increase away from the wall. 

Card 3, Format (513) 

Field 1, (Columns 1 - 3) , NY 

This is the ntimtaer of spatial nodes used to describe the slab 
(or ray). It must be equal to or less than 20. 

Field 2, (Columns 4 - 6) , NI 

This is the index on the spatial point at which the line 
frequency coordinate system is to be evaluated. For a layer 
in which the elemental composition docs not vary greatly, use 
the high temperature boundary* When the elemental concentra- 
tion does vary significantly, select a point where the temp- 
eratures are the highest but all the elements are still present. 












Cards 4,.,. N5, Format (6E12.^r 


Field 1, (Columns 1 - M - 24,...), (YY(I), I = 1,NY) 

II KR(13) ' , 11 ..o the normalized distances from the 

v^all to each sp^. <- •. < s tation. If KR(13) ^ 3 

YVa^ ~ rj(I)/n^ 

where rjU) is c, density stretched coordinate normal to the 
wall. For both cases , values should be selected so that 
the thermodynamic variation of the slab (or ray) is well 
described. 

Skip the Rest of Group 5 if KR(5) 2, 3 or 6'— — 

Cards N5+1, U5t2, (Format (6E12.1) 

Field 1, (Columns 1 - 12, 33 - 24, ...), AHV 

These are the absorptanccs or emittances of the wall - one 
for each continuum frequency point. 

Cards N6+] , ...,N7, }*oimat (61:12,1) 

FieJd 3, (Columns ^ - 12, 13 - 24, ...), HVL 

Those are the absorptanccs or emittances of the wall - one 
for each line group center frequency. 

Cards N7+1, N7+2, ...,N8, Format (6E12.1) 

Field 1, {Co3umns 1-12, 13-24, ...), TMSW 

Continuum transmittances of the wall - one for each con- 
tinuum freque^ncy point 

Cards N8-+1, N8+2, ...,N9, Format (6E12.1) 

Field 1, (Columns 1 - 12, 13 - 24, ...), TMSWL 

Line group transmxttancos of the wall - one for each line 
group center frequency. 

Group 6 - Uniform Conditions Input ( Skip this group if KR(2) = 0) 

Card 1, Format (6E12.4) 

Field 1, (Columns 1-12), DELTA 

DELTA is the radiation path length paramter. Its meaning is 
discussed along with the discussion of the KR(13) variable. 


Field 2, (Columns 13 - 24 ), PRKS(l) 


The variables in this field and the following three fields 
have meaning only when KR(7) ^ 1. PRES(l) is the pressure 
(atm) to be assigned to the uniform layer. If KR(2) = 2 , 
this value will be overridden by rhe downstream shockwave 
pressure. 

Field 3 , (Columns 25 - 3u) , TEE(l) 

If KQ(1) = 0, TKEQ) is the temperature (^'K) , If KQ(1) = 2 , 

TEE is the enthalpy (Btu/IL) . 

Field 4, (Columns 37 - 4B) , SLOPE 

The variable in this field has meaninn only if the radiation 
path length is to be set equal to the standoff distance of a 
spherical body (KR(13) 0 or 3) . If SLOPE = 0., the classical 

standoff formula is employed, i.c. 

m \ 

6 = SDR * DELTA/ (1. + SDR) 

where SDK is the uonsity ratio across the normal shock wave. 

If SLOPE > 0, the standoff distance formula employed is 

6 = SDR * DELTA * SLOPE 

which is consistent with the recommendations of some of the 
more recent studies. 

Field 5, (Columns 49 60) , V 

This is the density (Ib/ftM of the gases in the radiating 
layer. It has meaning only if a chemistry solution is not 
going to be obtained (KR(7) ?= 2) and if a density stretched 
coordinate system is to be used (KR(13) ^ 3) • 

Card 2, Format (6E12.4) 

Field 1, (Columns 1 - 12) , TW 

The temperature ('^K) which is used to calculate the emission 
from the wall. If KR(15) =* 3, 4, 6 or 7, this value will 
be overridden by the program. 
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IF KR(7) / Skip the Next Card 

Card 3, Format {BE10*3) 

lieldf; 1, I, ...(Columns 1 10, 11 - 20, . . . ) , (SP(I), I == 1, 

IS.M) 

These . ro the mass fractions of the base species. Their 
order must be identical to that used for the species in the 
chemistry input (Group 3) . *Vhen elements are used as base 
species, these variables become the usual elemental mass 
fractions. 

IF KR{7) f 2, Skip the Next Card 

Card 4, Format (2413) 

Field 1, (Columns 1-3), NSFEC 

This is the rumber of raoiating species to be read in. 

IF KR(7) 3 ^ 2, Skip the Following Card Sets 

Read one card set per radiating species to be read in for 
a total of NSTM'C caru sets. A card set must be included 
for the electron specie. 

Card 5, 6, ...Format (2A4, 2X, 7E10.2) 

Fields .1 and 2 (Columns 1 - 4, 5 - 8), FAMOA(J) , FAMOB(J) 

These arc Uic two-part names of the radiating species. They 
roust correspond exactly with the names used in DECK A. 

Field 3 (Columns 11 - 20) FR(J,1) 

These are the mole fractions assigned to each of the species. 

Group 7 - Nonuniform Condilions Input (Skip this group if KF (2) ^ 0) 

Card 1, Format (1E12.1) 

Field 1, (Columns 1 • 12), DELTA 

DELTA is the radiation path length parameter. Its meaning is 
discussed along with the discussion of the KR(13) variable. 

Skip the Next Three Card Sets if KR(7) « 0— • — 

Cards 2, ...Nil, Fo-*mat (6E12.4) 

Fields 1, 2, ...(Columns 1 • 12, 13-24, ...) (PRES (I), I = 1,NY) 
These are the pressures (atm) at each spatial node. 



Cards Ml + 1, ..-^a2, Format (6E12,4) 

FioldG 1, 2, (Columns 1 - 12, 13 - 14, ...)(TEE(I), 1 = 1,NY) 

If KOO) 0, theso are the temperatures (®K) at each 
spatial node. If KQ(1) = 2, they are the enthalpies 
(Utu/lb) . 

Skip the Next Card Set if KR{7) ^ 2 or KR{13) < 2 

Cards N12 + 1, Format (GE12.4) 

Field 1,2, ...(Columns 1 - 12, 13 - 24, ...)(RH0(I), I = 1,NY) 

-hose arc the gas phase densities (Ib/ft^) at each spatial 
point. 

Card N13 + 1, Format (6E12.4) 

Field 1 (Columns 1-12) TW 

This variable was described previously in Group 6. 

Skip these Card Sots if KR(7) ^ 1 

Read in one card set per spatial node, I. 

Card N134 2, ...m4. Format (8E10.3) 

Fields 1, 2, ...(Columns 1 - 10, 11 - 20, . . . ) (SP (I ,u) , J = 1, ISM) 

These arc the mass fractions of the base species at each 
spatial node 1. The odcring of the species must be the S£une 
a.s that used in Group -3. 

Card NIS, Format (2413) 

Field 1 (Columns 1-3) NSPEC 

This is the number of radiation species to be read in . 

Skip the Following Card Sets if KR(7) ^ 2 

Read one card set per radiating specie to be read in for a 
total of NSFEC card sets. A card set must be included for 
clcctronc. A minimum of two cards per specie is required. 

Cards N15 t 1, ...N16, Format (2A4, 2X, 7E10.2/(8E10.2) ) 

Fields 1 and 2 (Columns 1-4, 5-8) PAMOA(J), FAMOB(J) 

The.so arc the two-part names of the radiating species . They 
mu.st correspond exactly with the names used in DECK A. 
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Fields 3, 4, •..(Columns 11 - 20, 21 - 30, 

These are the mole fractions of the Jth 
Ith spatial points across the radiating 
usually positioned at I = 1. 

Group 8 - Termination of Hun 

Card 1, Format (6H12.4) 

Field 1, (Columns 1 ~ 12) , C4 

If C4 = 0, begin reading in a new case starting with Group 1 
of DECK B. If C4 = 1., stop calculations. 


(FR(J,I) , I = 1,NY) 

specie at each of the 
layer. The wall is 




SECTION 3 I 

» 

OUTPUT i 

3.1 NORMAL OUTPUT 

For a given case, the normal output consists of five sets of data, 
each of from one to three or four pages in length. The first set suiamarizes 
the xicnnancnt data deck being used. The second set gives the radiation and 
chemistry control numbers and defines the radiative boundary conditions for 
the case being run. The third set defines the spatial variations of the thermo- 
dynamic projicrtics, starting with chemistry solutions at the wall and 

each successive spatial mode and finishing with the ray length (or the wiath 
of the radiating layer) and a summary of the number densities of the radiating 
species. The fourth set gives the results of the continixim transport calcula- 
tions, and the fifth gives the results of the line transport calculations. 

Vd^cn «K/ic than on:i case is calculated in a given run, the first sot of data j 

is priniod out for the first case only. The other four isets are printed out j 

for ciich case. ' ' 1 

The first set of data is given the title "DECK A". Twelve columns of j 

1 

data arc printed out under th'* following headings: | 

GROUP, IIV, HV+, I1V-, N, NAME, K(IJ , HV(1), F(I), GAM(I) , EXPN(r), NOL * | 

The f iryt five columns define the properties of the liue groups; the second " i 

seven define the properties of the lines wit:»in each line group. With one | 

exception, these variables are the same as the input variables, although ; 

slightly different terminology is used. In terms of input variables the \ 

headings arc the following: ! 

i 

LINE : i 

GROUP SPECIES 

INDEX, FIIV, FllVP, FHVM, NO, NAME, ND, HVL, FP, GAMP, EXPN, XNOL ‘ 

i ] 

, The exception is the K(I) or ND variable where the input variable is an index j 

on the . oorbing level relative to the ground level of its species; where as, ; 

tho. ND variable is the index of the absorbing level relative to all the levels \ ; 

considered in the data deck. The remaining variables were defined in Section 2. 





The second set of data is titled "CASE-XXXX" where XXXX is the case title 
which was read in cn the first card of Deck B. The radiation control numbers 
(KR(I)) and the control munbers (KQ(D) are given which describe the case. 

An output block is also given for flow control numbers which are set internally 
in the code and arc not used to define cases. These are followed by the 
"RADIATIVE BOUNDARY CONDITIONS" given xn terms of the emittance and the 
transmittance of the wall and the outer boundary and as a function of both 
th'i continuum and line group frequencies (corresponding wave lengths are also 
given) . 

The third set of data is always given in title "THERMODYNAMIC STATES 
ACROSS THE LAYER-STARTING WITH WALL." The thermodynamic data printed out at 
each space station includes temperature ("K) , pressure (atm ) , molecular 
weight, enthalpy (cal/gro) < entropy (cal/gn-"K) , density (gm/cm*) and the names 
of the species with their mole fracrions. At the end of these thermodynamic 
data, the path length parameter DELTA is given followed by a block of number 
densities given for each radiating specie at each space station across the 
layer. 

The fourth set of data is given either the title "CONTINUUM CONTRIBUTION 
TO THE SPECTRAL FLUX" or "CONTINUUM CONTRIBUTION TO THE SPECTR/iL INTENSITY" 
depending on the type of calculation being performed. The next row gives 
the normalized distances to the space nodes where the transport integrals were 
evaluated. The first coliunn gives the nodal points in frequency used ia the 
continuum calculation. When the transport integrals are to be evaluated at 
6 points or less (NIC < 6) , the next 2 times NIC columns represent F' and F^ 
or I" and I^) given alternately, one combination for each node at which the 
transport integrals were evaluated. When NIC > 6, there are two rows of output 
for each continuum frequency point. The top row is F* (or I“) and the bottom 
row (which is slightly displaced to the right) is F* (or I^) . Frequency in- 
tegrated values are given at the bottom of the page for the NIC spatial nodes 
being considered. 

The fifth set of data is given the title "LINE RADIATION." The next 
row gives the normalized distances to the nodes where the transport integrals 
%fere evaluated. The first column gives the index on the line group being 
considered. The next column gives the center frequent ' of the line group. 

The first row gives the line correction (F^* or l" - se Equation 66 of Ref. 1) 
integrated over the frequency increment of the line gr< tp and in the negative 
direction. The second line is displaced slightly to th right and gives the 
corresponding value in the positive direction. The tot«.l line correction to 
the directional fluxes are given at the bottom of the page. 
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3.2 EXTENSIVE OUTPUT 


The extensive output package may be activated at a single specified 
spatial point. This consists of seven sets of output data, five of which 
are roughly one to three or four pages in length, one of which is roughly 
twenty pages in length (extensive continuum output) and one of which is 
roughly one hundred pages in length (extensive line output) . The first three 
sets of data are identical to the first three sets of the normal output data. 
The fourth set gxves the extensive continuum output; the fifth gives the 
continuum output summary; the sixth set gives the extensive line output,, and 
the seventh set gives the line output suinr»ary. 

In the fourth data set, three dependent variables (B,FMU, and TAU) 
are presented as functions of frequency (HV in ev, as printed out) and spatial 
position. For each of the continuum frequency points, the* entire spatial 
array of each variable is given, starting with the wall value. The variable 
B represents the Planck function (or the blacx body emissive power) ; the 
variable FMU represents the continuum (only) absorption coefficient, and 
the variable TAU represents the optical depth along the ray of interest 
(or the 60 degree ray for a plane-parallel slab) . 

The fifth set of data is given either the title •‘CONTINUUM CONTRIBUTION 
TO THE SPECTRAL FLUX*‘ or •‘CONTINUUM CONTRIBUTION TO THE SPECTRAL INTENSITY** 
depending on the type of calculation being performed. The second row of the 
title gives the normali*,:ed spatial station specified for the transport print- 
out. The spectral points for the continuum are given in the first column. 

The next three give the continuum transport quantities in the negative 
direction (away from the wall) . The spectral fluxes (or intensities) are 
given first; then the integral of the spectral flux (or intensity) over 
frequency is given as a function of frequency (each entry represents the 
integral from the first frequency point to the current frequency point; 
finally, the third column gives the same information as the second, except 
that its entries are normalized against the final value of the integr;jl. 

The information given in the last three columns is the same as in the three 
just described, except that the transport quantities in the positive direction 
are considered. When KR(8) the spectral quantities are presented as 

functions of wavelength instead of frequency. “ 

The sixth set of data gives additional details about the line group 
and the line transport calculation. For each line group the continuum 
absorption coefficients and the appropriate black body function at the 
"average** frequency of the line group are given as a function of the spatial 
points, Th€ positive and negative continuum fluxes (or intensities) are 
given at the specified spatial station. At each of the frequency points 
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within the line group (frequency interval) , the total (line+continuum) 
absorption coefficients and optical depths are given as a function of spatial 
points* The spectral flux (or intensity) is also given for each of the two 

directions* Finally, an integral over the line group is given. 

The seventh set of output data gives a summary of the line calculations. 
The first column gives the line group index* The second and third columns 
give the lower and upper frequency (or wavelength) boundaries for each line 
group with labels NEG (lower) and POS (upper) assigned. The next two columns 
give the spectral and total (frequency integrated over the line group) 
contributions to the positive (wall directed) component of the flux (or 
intensity). In this output block, the spectral flux (or intensity) is an 
artifice, defined as the total assigned to the line group divided by the 
frequency increment assigned to the line group. These spectral output 
quantities are meant to be used only for easy graphical display of the results 
of the calculations and/or for its qualitative interpretation. The last two 
columns give the spectral and line group integrated totals for the fluxes 
(or intensifies) in the negative direction (away from the wall) . The spectral 
fluxes (or intensities) arc subject to the same considerations and restrictions 
discussed previously for the postitivc spectral fluxes (or intensities) . 
Finally, the total (summed over line groups) flux (or intensity) in each 
direction is given at the bottom of the output block. 
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SECTION 4 


SAMPLE CASES 

Presented in this section are six sa.aple problems which were run on 
a UNIVAC 1108. These problems are relatively simple but do exercise many 
of the program options. For each sample problem, the following is presented: 

• A brief discussion of the nature of the problem and solution 

• A listing and/or description of the input deck 

• A selected number of pages of the program output 
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4.1 SAMPLE PROBLEM 1 


A 20 group line model and 48 point continiuum model are employed to 
calculate the radiative flux emanating from a plane-parallel slab with the 
thermodynamic conditions (temperature, pressure, elemental composition) specified 
across the layer. This con±>ination of elemental system (C-O-N-E*) , the values 
of the thermodynamic variables and cold black wall boundary conditions make the 
calculation a reasonable representation of the thermal events occuring in the 
inviscid flow region of a Venus entry body. The results of the calculation 
are presented in terms of the frequency variable and in standard output 
foiTmat. 
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4.2 


SAMPLE PROBLEM 2 


This sample problem is identical to the first sample problem., except that 
the results are presented in the extensive output format. The input data decks 
are identical except for the following changes: 


Sample Problem 1 
KR(17) = 0 
NIC = 10 

NICN(I) = 1,2,3, ...10 


Sample Problem 2 
KR(17) =* 1 
NIC = 1 
NICN(L)= 1 


which must be made to implement this option. The first set of continuum output 
includes black body emissive powers (B) , contin^ urn absorption coefficients (PMU) 
and optical depths of the 60 degree ray (TAU) as c funuuiun ot frequency (HV) 
and for each spatial point across the layer. The second set of continuum output 
summarizes the flux values at the spatial position (y/6 = 0) specified for print- 
out. The next set of output data gives the line transport at the spatial point 
specified for print-out. Finally, a line radiation summary is presented. Recall 
that the spectral flux presented in this output block is an aitifice, defined 
as the frequency integrated flux assigned to the line group divided by the 
frequency increment assigned to the line group. 
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4.3 SAMPLE PROBLEM 3 

This sample problem is identical to Sample Problem 2 , except the wave- 
length was selected for the independent output variable in place of the frequency. 
Note that wavelength begins with a maximum value then decreases. The input deck 
is identical to that used for Sample Case 2 except for the following change. 

Sample Problem 2 Sample Problem 3 
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4,4 SAMPLE PROBLEM 4 


This sample problem is also identical to the first sample problem, except 
that the equivalent width approximation was employed and only some (six) of 
the opatial points were selected for output. The input data decks are identical 
except for the following changes: 


Sample Problem 1 


Sample Problem 4 


KR(4)== 0 
NIC = 10 

NICN(I) =1,2,3, . . .10 


KR(4) = 3 
NIC = 6 

NICN(I) = 1,3,4,6>8,10 


which must be made to implement these options. The computing time requirements 
are suraraarized in Table 4.1, below for a UNIVAC 1108 machine. 


TABLE 4.1 
COMPUTING TIMES 


Computation 

Time 

(Sec) 

Sample 
Case 1 

Sample 
Case 4 

Chemistry 

3.994 

3.994 

Continuum Radiation 

3.782 

3,782 

Line Radiation 

82,343 

7.082 

Total 

50.119 

14.858 
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4.5 SAMPLE PROBLEM 5 

This sample problem was selected to illustrate the use of the 12Z=1 
option in calculating transport in the hydrogen rich atmospheres. A complete 
input deck is presented for the elemental system and for a uniform 

slab at 10000 and 1 atmosphere pressure. The continuum absorption 
coefficients with and without the addition of the far wings of the hydrogen 
lines are shown in Figure 4.1. For this case, the effect can be appreciable. 
Mote that only the true continuum exists within the frequency increments 
defining those line groups which contain the special hydrogen lines (there 
are two such line groups which are adjacent in the region of 2 ev) . 
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9.55 

8.7 

7.85 

C Cll STATE 

0.5 




C F,T»ST 

liXCUED 

SIAlE 


10.0 

2 

C 1ST EX 

STATE 

17. 17. 17. 17, 

16^ 

10 . 

0,0 

C 1ST EX 

STATE 

• <? 




C SECONO EXCITED STATE 


6.51 

3 

C 2ND EX 

STAIt 

22 . 2.2. 22, 22. 

22 ^ 

22 . 

22 . 

C 2NO EX 

8TAIE 

22 . 




1 3 1 

1 . 

13.505 wen 



H 

2 . 

8. 

18, 32, - 50. 




0.090 

10.191S*) 12,07926 12.7’99 IxiOOSbft 





68 


INPUT •> SAMPLE PROBLEM 5 



5 


1 • 

H eo STtIf. 

H GP STATE 
H GO STATE 
H 1ST tX ST 
H 1ST EX ST 
H 1ST EX ST 
H ?NO EX ST 
H ?NO I.X ST 
h ?hO EX ST 


l. 1. 

1. 

1. 

1. 

1 , 

13.38 

1. 

1 

6. 5078 
.535 

6.6923 

5,4699 

5,7-)P6 

2.7339 

2.0362 

3.4 

1.557 

2 

15,822 

,0485 

7,300 

3,9493 

1,5346 

,7487 

,4197 

1.6 

,2584 

3 

19.93? 

,0061 

4,646 

1,75 

,465 

,166 

.0923 

,0523 


N2+ NO 

02 62 C'j 

H? C2 

C'i 

c* 

cs 

K'2+ NO 

02 n 2 r.M 

hp (.^ 

CN 

U- H- 

C 1 

,1 0 
2^2 

♦00 4.81 

2.2 

+ 09 

4. 

1. . J6 

«'• 

♦ 00 

S, 

0, 1^ 
0 

10,00 

10.2 

! 

4,6 

11 

• 7 

12.6 

0,80 

13. <'4 

♦00 4.95 

♦ 00 

*,.12 

A 

♦ 01 

0,1-4 

Q A 


2, a 3,8 

lOf A 10, a 11,7 

15.30 H.5 . 

,60 .ao 

2;*» 3,4 7.11 

jo, 2 10.5 11,2 

13,0 13,5 

b 71317 , . ^ 

0 610 6 0 1 1 7 910 9 7 11112 7 I 0 

H 5 36,0000 , 1662 a 

H a ?5,O00xT ,50600 

H a 36,0000 ,47220 

H 3 16,0«00 ,tt6iri 

0 8 .46 ,685 

C 6 .3930 .6«‘>90 

N 6 ,25 0,669 

r 7 .1340 ,7! TOO 

N 5 ,25 0,7525 

r 6 ,3540 .84400 

C 5 .4570 .8S2C0 

N 5 ,25 0,875 

0 7 ,46 .884 


,25 

,25 

25.0000 
.46 
.6120 

,25 

,3540 

,46 

.46 

36.0000 
,4020 
,3610 

,25 

,3070 

.46 

,25 

,?5 

,«6 

,2910 

.25 


, 1662 a 

,30600 

.47220 

.tt6iri 
.685 
,6«‘>90 
0.669 
,7! TOO 
0,7525 
.84400 
.85200 

0. 875 
,884 
C.9158. 
C,43C4 
0.96S 
.96719 
,991 

1.01900 

1.0355 

1. C8280 
1.098 
1,132 
1.13330 
1,16300 
1,22400 

1.2610 
1.3190 
1.326C0 
1 . 338 
1,5677 
1,4380 
1,467 
1.48700 
1.5527 
1,594 


6 B 

1,?31(.0 

1,03800 
,17930 
,84210 
,19o0 
, 04400 
0,1597 
,20800 
0,0149 
,98080 
,06870 
0,0366 
,1570 
0.00647 
0.0253 
0,0262 
,15060 
,0605 
,03290 
0.0735 
,10060 
.7490 
,2910 
,05564 
,47400 
.02850 
0,118 
0.1833 
,26600 
,9130 
0,0387 
0,256 
,9500 
,04050 
0,0030 
1,0300 


8,8 

12,00 


10,00 

12,2 

1*6 

9.4 

12.08 


, 1090»05 
,4149.C« 
,8300+04 
,1267+04 
,1100-24 
,3210-20 
,1870-19 
,6390-17 
,4400-20 
,4120-24 
, 1080-24 
, 3800-20 
,3670-20 
.7390-21 
,3870-19 
,3870-19 
.3368+04 
,3090-19 
.2050-18 
,3310-20 
,3200-20 
,3440-20 
.3670-20 
,eoi9+0'J 
. 1080-20 
, 2620-26 
.3120-20 
,9840-21 
,1380-20 
,3420-20. 
,2929-20 
,8240-21 
,8650-21 
,21«0-24 
,2930-19 
,7090-21 


0.184 

9.7 

12.1 


1,888 

10 . 

12.4 


-.CC40 

-.0000 

-.0090 

-.0000 

6 . 

3, 

6 , 

4.0COO 

3, 

^ oooo 


2, 

4, 

7, 

8 , 


-,0000 

.,0000 

.,0000 

3, 


.,0000 

.,0900 

-.000 

.,0000 


..0000 


.,0000 


-*00 

-,0000 

-.0000 


-,0000 


-,00«0 


INPUT - SAMPLE PROBLEM 5 






H 


.2i 

l.hhSO 

0.C923 

.9580-21 



U 

7 

, *«♦> 

1 .767 

,0226 

.2750-19 

3. 


C 

0 

,3?hf. 

l.f l«00 

.Of39s) 

.3500-19 

5, 


N 



: .0357 

O.OObhh 

,2939-19 

5. 


H 

2 

,00*''!) 

l.PPHrtC 

,6 1070 

.coon 

-,0000 

-.Oiloo 

H 

2 

,«oco 

2.5%‘JOO 

.11930 

»00‘>0 

- » 000? 

-.niM'O 

H 

2 

2b,0C-t'fi 

2,“S590 

,0a«h7 

,5157 + 0/4 

-.0000 

30DO 

N 

/I 

.25 

2,025 

0,007.) 

,1060-19 

If 


0 

5 

.Oh 

3.000 

.0100 

,8100-20 

2. 


H 

2 

3h-.0ftCP 

3.0221 p 

,02209 

,7hOd*0<i 

-.OCrtO 

-,0000 

0 

ii 


3.1h7 

,00l*2h 

,5200-20 



N 

a 


3. 07, *'4 

C.00H61 

,4520-19 

3. 

, 

C 

M 

.0/, 

3. ■'ll 

.0143 

,1100-19 



C 

3 . 

.5150 

5.0(.2-0 

,06760 

,1130-20 


-,0000 

C 

? 

,515? 

6,q?-4';C 

,072^40 

,1 130-20 

•,OOCO 

•' , C 0 0 ** 

C 

3 

. ,3550 

/.013->o 

,01910 

.5030-20 

-,0000 

•,0000 

C 

3 

»3M'' 

y .07«.-K> 

,C74«0 

»2620-2(‘ 

OOuO 

•,COOfl 

N 

3 

.25 

07, n 1 

0.0h30 

,9l?o-21 



C : 

1 

.5230 

7, <ih! Op 

.lObOO 

,8730-21 

•,0000 

•,nooo 

C 

3 

- .5?t0 

7.7 1 /(Ml 

. 00S3 J 

.2200-19 

-.0000 

-.000(1 

C 

3 

.hthc 

7.7?lt.o 

,036/0 

,1090-18 

-.0000 

-,000^* 

C 

1 

.•1S70 

/.Oti/.s? 

.26300 

,2060-21 

-,0000 

-.0000 

C 

3 

.PtiOO 

i».030;'.l 

,0045/ 

,6900-1 <4 

-tCCOO 

-,O000 

C 

3 

,75?C 


.OllhO 

.13CC-1/ 

- • 0 0 0 

-,0000 

C 

3 

.3300 

a.2f'3oo 

,r(.J«7 

,1190-16 

-,0000 

-,0000 

C 

3 

,2r><>0 

S.3o?l'1 

,00851 

.5380-17 

-#OeOO 

-,cooo 

N 

2 

.25 

n.3021 

0.0740 

.9120-21 


. 

C 

2 

,«77C 

6.3''h(>p 

,01100 

,2l40»?o 

-tOOOO 

-,0000 

C 

3 

,»;:P0 

6,37/00 

,00501 

,6770-17 

-,0000 

- , OOOO 

C 

2 

,33«J0 

5, «330C 

,(1420 

.5C0C-2O 

-,onoo 

-.0000 

C 

? 

»379P 

5,07500 

.06250 

,2460-20 

-,0000 

-•COOC 

u 

3 

.25 

•,>a,7*»i 

0.0435 

.661 0-21 


• 

c 

2 

,*>2 

9,1 >5 

,04106 

,97»*(.-)9 



N 

3 

.25 

O‘\301 

O.Olhh 

.t4460-r*U 


# 

C 

t 

1,0650 

9.3S2CC 

.20300 

.55/0-2? 

-,0000 

-.0000 

H 

3 

,25 

C9,39o 

0.0119 

,?29o-?vj 


• 

C 

2 


‘■;,«45(,r .j 

.02180 

,69110-18 

-iOOOO 

-,00 

H 

3 

.25 

09,06c 

O.OihO 

,3560-20 


, 

0 

J 

.Oh 

9,501 

,0471 

,5480-21 



C 

2 

.75 

9,612 

.01283 

,1168-1/ 



C 

1 

,30? 

9,60/ 

.0233 

,4568-20 



C 

1 

,37?0 

9.70900 

.07670 

,2350-20 

-•coco 

-.000 

C 

2 

,2«9C 

9,72200 

.00810 

,5386-17 

-f 0000 

-.0006 

C 

2 

,f)4K0 

9.7'’700 

,oc«eu 

,6770-17 

-.0000 

-.000 

C 

t 

.5200 

9.63900 

.02600 

,2930 

( -.0000 

-.0000 

N 

2 

,?s 

09.073 

0,6890 

,661 0-«! 


. 

N 

3 

.25 

10.102 

C.0374 

,2930-19. 


t 

0 

3 

.06 

10.10? 

,1510 

,6530-2^1-^ ' 



H 

1 

.0000 

10.19600 

,41620 

.0060 

-eOOCO 

-,0000 

N 

1 

.25 

10.332 

0.1840 

,6210-23 


. 

C 

i 

.3260 

10.90100 

.00719 

,2?00-19 

^.0000 

- • 0000 

C 

1 

.6260 

10.90S0C 

,04950 

.1090-18 

-tOOCO 

-.000 

N 

3 

.25 

lO.OlB 

0,0225 

,5320-19 


. 

N 

2 

,25 

10,493 

0,0187 

,4460-19 


t 

N 

3 

.25 

10.585 

0,0131 

,7960-19 



N 

2 

,25 

10,619 

0,0533 

,3120-20 


• 

N 

3 

,25 

10,682 

0,00819 

,2680-18 


■ 

C 

i 

,®190 

10,71400 

,02980 

,6900-18 

*9^00 00 

-,(1060 

N 

3 

.25 

10,757 

0. 00518 

,4370-10 


f 

0 

2 

.06 

10,761 

.1200 

.6530-21 



c 

2 

hOflO 

10.07100 

,70500 

,6300-20 

-,ccoo 

-,0000 

c 

1 

,7530 

10,87501) 

,01550 

,1300-17 

-,0000 

-,0000 

c 

1 

,3310 

10.06700 

,00195 

,1190-18 

-.0000 

-,0000 

N 

1 

,25 

10,927 

0.4540 

,1610-22 


• 


70 


INPUT SAMPLE PROELBH 5 




.■.‘Wl-.,’-’- 


4 









c 

1 

.4230 

If .^(bOO 

,01100 

, 2530-18 

-.('COO 

-.0000 i 

(1 

3 

.“6 

1 1 7 

.0135 

,3670-20 





(iU «J 

»U| oO 

kC'I 59 

M 770 17 

-•COCO 

•ijooo 

N 

3 


n , 2 <n 

0,0200 

,0060-20 


9 

N 

2 

,?5 

n.^-’Y? 

0,0016 

,2‘7 5S-19 


• 

H 

3 

.?*> 

ii.no 

i).0 25<l 

.3230-20 


• 

H 

r 


11.‘I2'4 

0.2260 

.1030-22 


• 

N 

2 

.24 

n.bOQ 

C.0250 

,5320-19 


& 

N 

2 

.2S 

1 1 . 7/6 

C,i'220 

,7960-19 


• 

0 

3 


11. 'Oo 

, fiii.j', 

,1050-19 



0 

1 

,<ih 

in •'■'2 

.Cl‘)<7 

.3670-20 


1 

N 

2 

.2i 

1 1 .i'7a 

0,0091 

.2660-18 


• j 

N 

2 



0.00575 

,0370-16 


1 

N 

3 

.25 

I2.i:-)n 

C.0269 

,2790-19 


0 

a 

1 

. J6 

12. •. <’7 

,02)B 

,3000-20 



H 

1 

.0000 

1 ^ f •, 1 0 

,0/910 

.0000 

-,0000 

-tOOCO 

D 

i 


1 2 . 1 6 X 

.0019 

.1280-19 



C 

3 

.1610 

12 . i*’no 

1 ,(.5T0'J 

, 15‘'Q-21 

-•0000 

-,ooco 

N 

3 

»2'i 

12.416 

0.0156 

,6960-19 


f 

0 

2 

,<16 

1 2 . o 0 <j 

.0>461 

,6530-21 



N 

2 

.25 

i2.‘H'i 

C.057<J 

,5700-20 


♦ 

H 

2 

.25 

12.511 

0.0279 

,3370-20 


4 

0 

1 

.^6 

I2.b?l 

.07/5 

,6330-21 



0 

1 

.'*6 

12.651 

,00520 

, K150-19 



H 

1 

lb, 0000 

12, / <600 

.02099 

.1025404 

-,nooo 

-,0000 

N 

1 

,25 

12.**V7 

0.0230 

.0460-20 


« 

N 

1 

.25 

14,OOM 

0.1320 

,2‘>40-c0 


• 

H 

1 

2b,00C't 

1 3.f)'j-M0 

,«in9a 

.3126+.14 

-,0000 

-,0000 

C 

i 

-.«221 

13.1 I'^OO 

,37900 

,1010-20 

-,O000 

-.0000 

N 

2 

.25 

13.1 ‘70 

O.OU09 

,2990-19 


• 

H 

1 

36,0000 

14.2l!‘20 

,00700 

,7777+04 

-•0000 

-.0000 

U 

2 

.25 

1 i.bOn 

0.0291 

,6'>60-18 


. 

H 

7 

.25 

1 

0 , 1 6 1 0 

.9500-25 


• 

C 

2 

,ltia 

i 4,601 Uf- 

XI i; n ft 
. - * ** 


- 4 0 0 0 0 

oonn 

N 

1 

,25 

13, '-77 

0,0957 

.2930-19 


. 

N 

1 

,25 

15. /OJ 

0.058H 

,5520-19 


• 

N 

1 

,25 

l«.lo3 

0.03<12 

,7960-19 


‘ 1 

• ; 

N 

1 

,25 

ia.257 

0,0212 

,2680-16 


/ 1 

• - I 

N 

1 

.25 

1<«.352 

0.0138 

.0370-18 




50 

o:o2 

0,1 

0.2 

0.5 

0,8 

1.00 

.1.50 

1,839 

1 ,8«l 

2.2 

2,799 

2.805 

i:io 

6;oo 

3,«6 

5,70 

4,60 

4,56 

5.00 

7,0C 

8.00 

8,50 

8,52 

8,98 

9.00 

9,19 

9.21 

9,99 

10,61 

10.595 

10. <105 

JO, 79 

10,81 

n .00 

11,25 

11,27 

U.995 

12.005 

12.195 

12.201 

12.98 

13.00 

t3,39 

IS.I'I 

1.3,59 

13, M 

l4,29 

14,31 

14,55 

15.00 





ilOOOOlOOlOOOObOOOOO 

SAMPLE CASE 5 





ouooooooo 

s 

ihydrogen i.ftoe 

b CARBON 12. on 

7 NHROGtN Jt.006 

e OXYGfcN 16,0 

99 ELECTRON 0,0005b 

1006 JANAf C3/61 C 


170686+6 

135500+5 

444433+1 

226125-5 

40983C+6 

492870+2 

500, 

3000.1 

Q,C 

i 

170686+6 

135500+5 

412212+1 

261908-3 

262886+7 

492870+2 

300C, 

5000,1 

o,c 

i 

1007 




JANAK 03/61 



N 

1 

112965+6 

134370+5 

486944+ 1 

383516-4 

958460+5 

480900+? 

500. 

3000,1 

O.N 

i 

112965+6 

134370+5 

428957+1 

240644-3* 

•4172,73 + 6 

480900+2 

3000, 

5000,1 

0,N 


1008 




JAnAE 06/62 



ft 

5 

? 




SVSS-SO + S 13S220+S lSi|7f.')4S •j'ic9#>0 + ? bUO. 3000.1 0,0 

b9b590 + b l3b220 + '.-> 6b7Uli<it J 7o>«!t7 bOO^M'i? 3000. bOOC.l 0.0 

1 1 tb.OATM •'l.'-.iSt PM1V71H 


SlOSO'J+b 


992'! 1 2+ t 

122761-9 1069CP+5 3P66l9+p 

500.1 

lOnOO.l 

-O.H 

5l«>30‘’ + b- 

.39HO29+b-720990+l 

962651-3 962559+0 256360+ 2 1 0000 » i 

SOOPft. 1 

•0« H 

1 a 1 

6 


t 9-30-65 



CO 

-2b«l69+i 

2C3b69+b 

■309/52+1 

?6 1 ‘>27-5-552 1 2« + o 6b 4699 ♦ ? 

500 

30091 

-ocn 

-26-4169 + 5 

223569+ '3 

3fS923+l 

Sf.?f.09-9-l?-.9Sl +7 655699 + 2 

5000 

60001 

•oco 

2 7 



.JA'.tF 9-30-65 




0 + 0 

221699+3 

793097+1 

5 l“6« /-3-31929S + 6 637650+2 

500 

30001 


0+0 

221699+3 

67S?i#. + i 

6« P30-9-1i92',2 + 7 657650+2 

5000 

60001 

• ON? 

IV 

0» 



JAI..AF 9-30-65 



oa 

0 + 0 

2399b9+b 

aoH69«i+ j 

99702P-i-2‘42‘’52 + 6 67972^ + 2 

500 

30001 

-on? 

0+0 

2390S9 + 7. 

10o92fl+2 

636677-m-6S91';2 + 7 679729 + 2 

5000 

60001 

•002 

1 6 1 

7 


JANA+ 12-31-66 


C'i 

J109«>9 + ft 

232979+b 

706«16+1 

‘)945«9-5-l 0 /293 + 6 669760 + 2 

500 

30001 

• 0C*^‘ 

1109<)9->6 

232979+b 

126220+2' 

*1 / #-6#-7 — 3— lo'##.'. 0+8 6c97o0 + 2 

5000 

60001 

•oc^^ 

1 6 2 

« 


JA*4A^ 9-30-hb 



CO? 

-9i|0539 + S 

36b399iS 

13529#.+?. 

o79623-3-865<i 70 + 6 79ftii8f;+2 

500 

30001 

•OClV 

-9<|053‘>+b 

365399+b 

1493*'« + 2 

l7o5'i7-3-l3P6.-2 + 7 79H/)80 + 2 

3000 

60u01 

-ot J2 

2 h 



JANA+ 12/69 

KS 

C2 

200223+0 

2067/9 + -, 

776630+1 

67119C.-3 20i»(J« + 6 685*390 + 2 

300 

50001 

iOC? 

200223+6 

2«6779tb 

O+tlSbO + l 

99/519-3 259fe3u+6 665390+2 

3000 

60001 

10C2 

3 6 



JA .Af 12/.39 

KS 

C3 

l9b09V , 6 

3C9b79+b 

96fU 26+ i 

976U/8-3-166t’9‘>+6 H + 2359 + 2 

foo 

50001 

10C3 

19b999 + <> 

309379+5 

129505+2 

1 66t) 0**— 3— 5 1 1.S6 0 + 7 812559 + 2 

3000 

60001 

10C3 

aopb 



JhUf.f 12/60 




202321+0 

bll230f5 

2O5903+2 

62i'*46— 9—25 /7fs 4 + 7 ‘/86/60 + 2 

500, 

3000.1 

O.C^ 

242321+b 

bn 230+5 

*)rt67h0 4iJ 

3000, 

5000,1 

o.ca 

SO 06 



JA6A1' 12/60 



cs 

202379+6 

656230+5 

269706+2 

806S28-9-33/1?'j+7 111691+3 

500, 

3000,1 

0,C5 

292379+6 

656230+5 

27 11 56+ 2* 

-58(..27i-9-5«3l65+7 U1691 + 3 

3000, 

5000,1 

0,C5 

2001 



.1a+AF 65/61 



H? 

OOOOOO-'O 

212100+5 

711953+1 

62195c-3-7i2‘>9h + 6 969650 + 2 

boo. 

5000.1 

0.H2 

oooooo-o 

212100+b 

66i799+ 1 

58985.4-3 2t,Sioht7 98.'I650 + 2 

5000, 

5000,1 

0.H2 

1 1 1 

6 


.JAlsAF 


CH 

191999+6 

239699+5 

77oI'79+| 

792295-3-566107+6 622730+2 

500 

30001 

-OCH 

191999+6 
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4.6 SAMPhK I’KOHUJM 0 


This i:£iniplc prohlom \s identical to the fifth sample except that the 
equivalent width approximation is employed. The input decks are identical 
except lor the following change: 

Sample Problem 5 Sample Problem 6 

KR(4)=0 KR(4)=3 

which must be made to implement the equivalent width option. The computing 
time requiremonto are summarized in Table 4.2# below for a UNIVAC 1108 
machine . 


TABLE 4.2 
COMPUTING TIMES 


Computation 

Time 

(sec) 

Sample 
Case 5 

Sample 
Case 6 

Chemi stry 

6.411 

6.354 

Continuu’u Radiation 

5.786 

5.713 

Line Radiation 

110.446 

9.452 

Tota] 

J22.643 

21.519 
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SECTION 5 


OPERATING PROCEDURES 

This program is written in FORTRAN V source language. It has been run 
in the UNIVAC 1108, the CDC 6400, 6C00 and 7600. It easily fits within the 
66K core capacity of the 1108 computer; consequently, an overlay procedure is 
usually not required for uncoupled applications. When the program is to be 
used as a subroutine in coupled flow -’field applications, an efficient overlay 
is easily devised, as shown in Figure 5-1. 

Card input is on unit M and output is on unit N where M and N are defined 
as 5 and 6 in the main routine. No scratch tapes or other input/output devices 
are needed. 

A control deck setup is shown in Figure 5-2 for the UNTVAC llOR. 
piled decks are cfton obtained from tape storage as shown in the figure. Drum 
storage ir also commonly used for this machine and would require a deck setup 
which is quite similiar to that shown. 

A control deck setup for the CDC 6600 is shown in Figure 5-3. In this 
case the compiled decks arc obtained from files. Again, the deck setup, for 
tape input is quite similiar to tha. shown. 




























SECTION 6 
ERROR MESSAGES 

This program has a number of internal consistency checks which must be 
satisfied before it will allow calculations to proceed. In addition, there 
axe a number of internal iterative ^calculations which must be successfully 
cOTipleted before the progran> will allow the calculations to proceed* Whenever 
the program enc unters an inconsistency or is unable to obtain an iterative 
solution, it wi_,x print out an error message and execute a pregram stop. Each 
of the error messages is presented on the following pages, accompanied by the 
name of the subroutine which prints it out plus a descriptive comment. These 
should enable the user to correct many of the more common mistakes which ti«e 
author has encountered in the use of tJie program. 



^fSSARt 
BiD cjlt. CAM. 

S»mKO‘.air,t 

mji.C? 

cn«*c>-i 

THt I'^DfcX p. THfc !u:lL 2 CALL LIST MAS HH.-i ASSlCsLO AN 
1. ‘4AM !<('(: RI A TF. VALol . 


ERROB S'! SSAGE 

BAD PHASE NUHbtRi<jR f.J» (HAf*F) 

INPUT 

C(MMf..4T 

THt S.AMT.n SPfcCIl HAS A 3A|J THtHHOCHr;'JST«Y CAK’D, 


ERBOR »*f. SSAGE 

CriEHJSTRY FAILED TO r..>*:VhKr.»; 
aUBROUtlHt 
taujL 

COBMEHT 

THE primary ITERAllu:. LOOP TH Tilt CHHiISTRY fALCulATinii FAUtO TO 
COHVFRGt, 


ERROR HFSSARt 

*«««CL'NU.4 Ijiim FRJo at ER.3 IS Ol/T OF SLOUEurf . ***a 
SUBHO JT1« ( 

RADIS 

COMH.EmT 

THt CONTINUUM FRfJiifiCY PUIKTS OBTApHD FROM IDPilT ARE MPT 
IM SruutMTlAL ORIlP, 


fcRRl'R KtSSAGL 

Data oelk mas i.c f i..; u 'TS#! I’»it is 6 
suBROinur 
EOUIL 
COHKLHl 

THE » 1 <".PLR OF BaSI 3PI.cn S (Ok tUMti.TS) Il PUT TO THf! 
CHLHISTRY CALCUL/Tiuu tXCUDS TKk Dli'M’SUlN Ll'»n. 


ERROR HF.SSAGt 

DATA DECK NAS 13 INDIVII'IIAL Lt VEl 8-Dl Ufc NSIUN LIMIT OF 3P 
aUHRnUTpiE 
RAUlit 
COMMENT 

THE number UF iNDTVtnUAL RADIATING lt’/|.LS INPUT TO THE 
RADIATION CALCUtAnOM rxCECDS IHF. 0PF.:.’Sia:j LPUT, 


ERROR MESSAGE 

DATA DECK HAS 13 Lli'ES« LIMIT 13 ^00 
SUBROUT I iiE 
RAOIN 
COHi^ENT 

THF HUMBER OF SPECTRAL LINES INPUT TO THE RADIATION CALCULATION 
EXCEEDS THt DIMENSION LIMIT, 


ERROR message 

DATA OFCK hap 13 RADIATING SI>f.ClFS«0lMr.HSin»4 LIMIT OF SO 
SUBROUTINE 
. ..RAOIN 

cohmemt 

THE number of 8PrclL’3 IN THE RAPlATlt... aPtCJES ARRAY ; 

EXCEEDS TiH OlMf ISUM tlMIT, THE ARRAY IkCEUuES ALL THE , 

SPECIES -MTH continuum DaTa INPUT PH'S ALL Tut SPf.cICS WITH | 

HOLECULaR RADIATTOU INPUT TO THIS DECK PLUS ELfCTRONS. j 


»6 



tR^C« H{.oS*r.c 

••ATI i-LCK hA55 n tf S-!, I:iTT IS <10 

S‘ia* 'i‘iTl iL 
fcKJll 
C')-:< T M 

TH'.»u ajti: till) MAf.v &“(.r.us i.m’ji tu <ri r,M?.>ii3iKr 

CAl.f,.<l AT!0^:, 
tHWMK ^r^SAG‘ 

A A * A 1 l.‘i ) CO'<TT"ti*' I Tk!.': T’A’.Gl ***• 

S'!b«‘i ill'.r 

CO •'•h iT 

YOU HAVt AniVAHO T<‘T -fJC-l rt'l'lKlS 1 HA 1 T«f. 

C'J.'H. T‘‘t /.ilM‘i'(Y O’ T* F C.l' T ) ‘ l<■.l I l^n^lLNCY 

It CHir.AtO THL Gt-I*’- HiliM., M t< PKt'il.I ’W T^•AT IT 

RMO;jLu LXIf’O 10 ! ri» :.'.<l '<0111). 

!M SSA«U 

FittU'ir'-CY GHID OlO 'nH COfvl 

SU >wn ni:!t 
FK‘. '1 
CO Tiit Yf 

SlJ!5«UuTI'iK FHt'J AAS U-^AhLL TO 'ISTAlU A Ll»C r«F.RUhT-CY GRID. 
ER.<0*T :ir.',s\r,t 

n*?uuP 13 MAS 13 Li:.ns-L1**1T If. 13. 

SlIHROUTlI.f 

kAni*i 

CO 

TMEKC ARfe TOO MAf Y UM -5 AS3I'< «I ? TO T“i; GAurp LPiL GROUP, 

tmrm MtssAor 

* A A \ i ) -2 CAi-'-",iT »>r- uotr' 

DAOIM 

COMi'fcMT 

VUJ CARwOT that TMf. CUUt PtidUD •'ITMOOT A CHfMlSTPV 

SULUTIOM UNLESS YOU GIVE IT A TEr.PtRAl 10 r.JRK MTH, 

LRRDR MFSS4GC 

***ALl:Jr. CfMTFW FM Q AT E9.3 13 OUT Of SCDlltfCh**** 
SUMRO'JTINr 

RaDIN 

Cu<“E.i1 

THE L1R13 IN THE IIM’UT DECK ARE MOT PROPERLY ORDERED. 

error message 

***alice center Out or group freouf.ni y ramge**** 

SUSROUTInE 

RADIN 

COH'iEMT 

A UNE HAS BEEN ASSIGNED TO A GROUP '.'MERE THI CENTER 
FREWUERCY OF THE LINE FALLS OiiTSlOF !!(■ THE limiNOS OE TuE 
GROUP, 

ERROR MESSAGE 

*a**I.1CM(1) must F-G.l FOR REELECTING WALLS**** 

SIIHKOUTHiF 

OADIN 

C01MENT 

THIS IS A REHUIREheNT OF THE CODE, 


97 





£k'^nw Ml n? .i;i 

ThF 1 A I-H'tx I MT I OILS A SPtCIAt HYP»?Uf.f*- LImE IN GROUP 13 NONE 
>>A5 I oi;nO 
SUiiPOU'*!'-!' 

»*LLt2 

COM‘-tKT 

Stir-FTHIf G J.& wRDf-o ^.IIH YOJR I UE ASSICKhtMS IN THE INPUT DECK, 


ERROR nfsSAGL 

THERE ARt Tt.O ?'a'.y special HVpROGEH LINES IN UNE OF THE LINE GROUPS 
Soi»Hr..JTIsE 
' ULL2 
CO '. 'I f T 

YOU RAY ASSIGN A HAXlMJH OF ONE SPECIAL HYDROGEN LINE PE« GROUP, 
LRRf'R HFSSAGE 

AlTh 1/7=1, VODP FHVC Values must resolve (aITHIN ,1 
EV) Tilt fUiUNDARIES (.'P Tfu'SF GROUPS EllH SPECIAL H LIMES, 

subroutine 

RAOIN 

Cn”HENT 

VJEN The hOt'-UAKibS OF T.*F GROUPS CONTAINING SPECIAL H LINES 
AS POINTS “KERc T>.F CONTIM.U'H UN !)1 PiitU S ■)! SC'In riNOOUS CHANGES, 

^HEN Tf.n A'.'JaCEnT LlNr. GRI-UPS HAVE A CO' <11)?* H'>0NUARY A-iD EACH 
group CU'TaTMS Oi-LY A SPECIAL H LIHF.» TuIS RULE DOES NOT APPLY 
TO THE COii-Oi. BOUnOARY. 

ERROR HE5SAGL 

YOU HAVE Sl.LECTF'i (NAht ) AS RADIATING SPECIE BUT DID NOT INPUT 
THFRHfJ DATA rCR IT, 

SUBROUTINE 

RAOtN 

CO'VIENT 

YOUR RAOIATIOR AND CHEMISTRY INPUT DECKS ARL NOT CONSISTENT, 

ERROR lirSSAGf, 

YOU ARl TRYING 1 !) ro^STDE'E 13 HIIWUOlECULAR RAOIATIhG SPECIES. 

THIS IXCEH'S IHF DlNf-NSIOS LlHlT OF 20, 

SUBROUTINE 

RADIN 

COilPENI 

YOU HAVE INPUT TOO MANY SPECIES 1^ THE COMTINUUH RADIATION 
INPUT, 

ERROR P.ESSAGE 

YOUR DATA CECK IS TvCUUSlSTENT . LINES rERE ASSIGNED TO SPECIES 
A^l BUT NOT CONTINUUM UATA, 

SUBROUTINC 

RADIN 

COMMENT 

YOUR data IN THE RADIATION DATA DECK IS NOT SELF-CONSISTENT, 
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SECTION 7 i 

) 

CODE DESCRIPTION | 

7.1 OVERVIEV7 

The RAD/EQUIL code performs four nearly autonomous functions. These 
are tne following: 

1. It obtains basic radiation property data, viz. frequency grid, line 
group properties and absorption coefficient data. 

2. It obtains the properties of the radiating layer, viz. its size, I 

I 

spatial grid, radiation boundary conditions and thermodynamic | 

property distribution across the layer. • 

3. It calculates continuum transport. j 

4. It calculates line transport. | 

The code performs these functions through the use of three primary computational 
modules. A complete listing is given in the appendix. 

The first module performs function 2. with Subroutines NODEN (calculates i 

partition functions and number densities) and EQUIL (obtains iterative solutions 
to the equilibrium chemistry relations and, when required, the shock jump condi- j 

tions) being the primary computational elements. When the RAD/EQUIL program i 

is to be used by itself. Subroutine DADIN is used to read in the remaining data 
required to define the properties of the layer and also to drive the calcula- 
tions* When the RAD/EQUIL program is to be employed as a subprogram to a flow 
field procedure, DADIN is usually eliminated, with its functions being performed ’ 

by the flow field code. : 

The second module calculates continuum transport and is driven by Sub- 
routine C0NTN2. Its most important elements are Subroutines MU (calculates 
continuum absorption coefficients), TRANS3 (calculates optical depths and spec- 
tral fluxes or intensities) and C0NTN2 (drives the calculation and performs 
frequency integration to obtain total transport quantities) . When the IZZ « 1 
option is employed, the far wings of the special hydrogen lines are treated as 
continuum components. The necessary absorption coefficients are obrained from 
Subroutines MULH2 and GF. 
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The third ir.odule calculates the line correction to be added to the con- 
tinuum transport and is driven by Subroutine LINT2. Its most important ele- 
ments are Subroutine FREQ (sets up the nodal grid in frequency) , ISLDV/SLOPQ/OGLE 
(performs integrations and interpolations within FREQ) , MU (calculates continuum 
components of the absorption coefficients ) , MUT/E2 (calculates line component of 
the absorption coefficients) , GF (provides interpolations for MULE2) , TRANS3 
(calculates optical depths and spectral fluxes or intensities) and LINT2 (drives 
the calculation and performs a frequency integration to obtain transport quanti- 
ties) . The line corrections are obtained by taking the difference between the 
combined (line + continuum) transport quantities and they continuum transport 
quantities evaluted at the ** average" frequency of the line group. This calcula- 
tion is also done in Subroutine LINT2, 

7.2 PRIMARY SCRATCH ARRAY 

A large array named AM (123 x 123) appears in common NONCOM. Numerous 
smaller arrays are equivalenced into this array throughout the program, as 
shown in Figure 7-1. While the AI*1 array must be available during the execution 
of the RAD/EQUIL program, only temporary data is stored within it, so that the 
core space can be released at the end of each radiation transport calculation 
and used for other purposes. 

7.3 SUBPRCX3RAM DESCRIPTIONS 


C0NTN2 

This subroutine organizes and drives the continuum calculation and inte- 
grates the spectral transport quantities to obtain frequency integrated totals. 
When I2Z =* 1, subroutine MULE2 is called to include the far wing contributions 
of the special hydrogen lines. 

PAPIN 

This subroutine reads in case data, viz. that data which defines the 
thermodynamic state of the slab or ray being considered. It also checks the 
frequency grid (when appropriate) and performs the shock wave standoff distance 
calculation (when appropriate) and drives the chemistry calculation for the 
program when it is not used as a subprogram. 

equip 

This subroutine obtains an Iterative solution to the equations governing 
chemical equilibrium, when required, the shock jump relations can be solved as 
part of the system io place of the relations assigning the energy, and pressure 
of the system. 
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This logical function evaluates the error function. 


FREQ 

This subroutine calculates the nodal points in frequency used in the 
finite difference evaluation of the line transport etjuations. 


GF 

This subroutine performs interpolations as a special service to Subrou- 
tine MULE2. 

INPUT 

This subroutine reads in the cnemistry input package. 


ISLDV 

This is a general service subroutine. It is essentially the same as 
SLOPQ except that the logarithms of the .dependent variables are fitted to ob- 
tain the slopes and integrals rather than the dependent variables directly. 
The resulting slopes and integrals are those of the function, however. 


LINT2 

This subroutine organizes and drives the line calculation and integrates 
the spectral transport quantities to obtain frequency integrated totals. It 
has separate logical blocks to perform finite difference calculations and/or 
eqiiivalent width calculations. 

MAIN 

This is the main program. It defines the input/output devices and drives 
the calculation when the code ie used alone. 

W 

This subroutine evaluates the continuum components of the absorption 
coefficients. Three general classes of absorbing transitions are considered - 
Bibennan and Norman, individual cross sections and molecular species. The first 
irwo classes of transitions can be activated, modified or eliminated in a general 
manner tlirough the_ normal program input; whereas modifications to the molecular 
species transitions require modifications to the source deck. 


MULK2 


This subroutine calculates the line components of the absorption coeffi- 
cients • There are two logical blocks contained within the subroutine • When 
the first logical block is entered, the subroutine calculates line strengths 
and the parts of the line shapes which are not functions of frequency and stores 
them for subsequent use. When the second logical block is entered, the fre- 
quency part of the absorption coefficient is calculated, allowing the final re- 
sult to be returned to the calling program. 


NODEN 

This subroutine calculates the number densities and the partition func- 
tions of the radiating species. 

SUBROUTINE OGLE 

This is a general service subroutine. Given a single function of an in- 
dependent variable, it will obtain intermediate points by cubic interpolation. 

SUBROUTINE RADIN 

This subroutine reads in data decks A and 3, identifies the species in 
the various arrays, tests the data deck for self-consistency, sets up the fl^gs 
which will bo used in the calculational subroutines, and writes out the output 
block defining the radiation boundary conditions. 

SLOPQ 

This is a general service subroutine. Given a single function of an in- 
dependent variable, it will calculate slopes and/or integrals of the function. 
Cubic:, are used as interpolation functions. 

TRANS 3 

This subroutine evaluates the spectral transport quantities using the 
finite difference relations. The quantities evaluated include optical depths 
and positive and negative fluxes (or intensities) . 
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SECTION 8 

FORTRAN VARIABLES LIST 


} 


Two lists of Fortran variables are gi\^n« The first was selected from 
those variables which appear in the primary logical blocks of the program. 

The second list represents the scratch arrays which includes many variables 
used to form the influence coefficients for -coupling to flow field codes which 
employ the Newton-Raphson procedure. In both cases the for.lowing format is 
used: 


Variable Variable Variable 

Name Use Location 

where the Variable Location is described by either L Name (local variable in 
Subroutine "Name"), or by C Namel (pommon variable in Common Block Namel) , or 
by ALL which means that the variable has the given meaning whenever it appears. 
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A(N/'»N) 

PAIMIAI n[K'p'AI)VK (IF FfJUATION N hHT VARIAIU.E hN, UStD 
IN (,t'i ri;nf<Y ni rai jc.h 

C 

EUTCUm 

ACM 


L 

MULE a 

ACM 

NUMHlK density (Ih c- 

L 

mu 

ACN 

NUMHhH DENSITY OF CN 

L 

mu 

ACO 

NUNIM R DENSITY (ih CO 

L 

MU 

Aca 

NUF'tsER DENSITY OF C2 

L 

mu 

ACJ 

NUNOER DENSITY Of C3 

L 

MU 

ACTA 

FIRST hale OF A TWO PART ALPHANUMERIC NAME OF THE SPECIES 
IN THE RAOIaTINO SPECIES ARRAY 

C 

CONTH 

AHM 

number density of H- 

t 

MU 

AHV 

WALL EHITTANCE EOR ThE CONTINUUM RADIATION 

C 

R/.0 

AHVL 

WALL EMITTANCE f'OK THE LINE RADIATION 

C 

RAD 

Aha 

NUMBER DENSITY Of' H2 

L 

HU 

AL 

CONSTANTS ASSIGNED TO EACH OF SPECIAL H LINES 

1 

FREQ 

AUF 

COORDINATE STRETCHING PRARmETER (NOT ACTIVE) 

1 

CONTNa 

AUPH 

normalized FREOUrNCV USED AS INDEPENDENT FREQUENCY 
VARlAtlLC TO define LYMAN ALPHA LINE 

L 

HULE2 

AUPHI 

gram atoms per unit mass of an EuEMENT 

L 

EQUIL 

AH 

primary scratch array 

C 

NONCOH 

ANU 

NUMBER DENSITY OF NO 

1 

HU 

ANa 

number DENSITV OF n2 

L 

MU 

ANaP 

NUMBER DENSITY OF Na+ 

L 

HU 

AOM 

number density of 0- 

L 

MU 

Aoa 

number Density of oa 

L 

MU 

ASIU 

NUMBER DENSITY OF 310 

L 

MU 

AQ 

fhgton Energy normalized by kt 

U 

C0NTN2 

AO 

PHOTON ENERGY NORMALIZED BY KT 

L 

LINXa 

ATA 

NOT ACTIVE 

C 

eqpcom 

ATB 

NUT ACTIVE 

C 

EQFCOM 

ATC 

NOT ACTIVE 

C 

EQPCOM 

A0*Ab 

coefficients used to evaluate the exponential INTEGPAU 

1 

MULC2 

H 

line shape function (AS IT APPEARS IN hOUATlON 42 

L 

MULK 


OF HtF, 1) 


XC6 


I I I 



1 

I 


PU'JfH rO« IMTf^SlTY CaI.CUI-ATUI^S, black body 

tMlRblVt IV row FL'IX CAl.t I'LATIUNS 


L COfOs'? 


f’LANCK rliMCTIOn ‘ uH IMTtMSTtY CALCULATIONS^ BLACK BODY 
t.MISSIVf. POWf w FOR FLUX CALCULATIONS 


L LINTi 


BLLOB 


BEEOB 


BFt tVALUATLO AT UUTF.R BOUNDARY 
Bft fcVALUATCO AT OUTER BOUNDARY 
BLF EVALUATED AT THE NALL 
BEE EVALUATED AT THE WALL 


L CONTNa 
L HNT2 


L CONTN? 


L L1NT2 


BRACE 


coefa 

COEFO 


alphanumeric names of atooic and ionic Radiating species l dadin 

NURMaLIZFD rWLUUEi'JCV USED AS INDLPrNDLNT FREQUENCY L MUL.F2 

VARIABLE TO OtFlNE LYMAN BETA LINE 

SFCOHD half of a TWO PART ALPHANUMERIC NAME OF THE C CONTM 

SPtCIES IN THE radiating SPECIES ARRAY 

NOT ACTIVE I EaUIl 

gram ATOMS OF FLEMENT K IN A MOLF/CULE, L INPUT 

ALPHANUMERIC NAME OF CASF BEING RUN C RAD 

LOCAl.LY DEFTNFD variable U MULE? 

NOT ACTIVE L L1NT2 

F RF.UUEnCjES or 0,1,2,3»«,6,8,)0 tV wHF.RE THi. LOW FREOUENCY L MU 

THECFJY OF BIt*FRMAN AND NORMAN IS EVALUATED 

CORRECTION COEFFICIENT FROM INPUT I MU 

CORRECTION COEFFICIENT FROM INPUT L MU 

total distance In frequency SPACE COVERED BY LINES L FREO 

(SUMMED OVER llNE GROUP) 

total DISTAmCE IN frequency space COVFRED by LINES L LINT 

(SUMMED OVER 1.1NE GROUP) 

same as CPF C EOTCOM 

F.WUlLlBKIUM SPECIFIC HEAT OF SYSTEM L EOUIL 

frozen S.-PflFlC HEAT FOR FACH SPECIE CAL/MOLF. DEG.K C EOTCOM 

FROZEN SPECIFIC HEAT OF SYSTEM * PH PRODUCT C EOTCOM 

derivative of MOLAR CP OF F.ACh SPECIE WRT TEMPERATURE L EOUIL 

continuum cross SECTIONS FROM B1BERMAN8 THEOR', OBTAINED L MU 

BY Interpolating between cgs vALuiS which wire input 

continuum cross 8ECTION8>»lO**ie AT FIXED FREQUENwIES • L MU 
OBTAIMFO FROM INPUT 

Cls6,2OE»20 L MU 

«l for uniform CONDITIONS, NOT«l FOR MONUNIFORM CONDITIONS C HAD 


I I 






c? 

C2C03 

C2C0 

C20D 

C3 

Cfl 

DAMP 

08H 

DCN 

DCO 

DC2 

DC3 

Dt:t 

OhLTA 

PLN 

0H2 

DIM 

DIP 

01$ 

OIV 

0!VC 

ONO 

0N2 

DN2P 

DOM 

DSIU 

DSK 


s PUTa \ ''-A CAtCUl AlI()N« s 2*DtLTA flJR FLUX C HAD 

CAut.'JLA'nO*.’ 

“UT ACTIVE L UNli 

NOT active L L1MT2 

hOT ACTIVE L L1NT2 

=0 IF A run SIT OF Nt»« data is to ht «EAD» nut a0» IF C RAO 

ONLY ThLRHUPYNAHIC AND PATH LENGTH DATA IS TO Bt HfcAO IN 

sO KHLN A MEM CASE FULLUMS* *l FOR LAST CASE C RAO 

DAMPING FACTOR L tOUlL 

CONTRIdUTION TCI THF ARSORPTION FROM THE RIOERHAN AND L MU 

NORMAN TRAnSITIUMS, 

CONTKlRUTlOli TO the ABSORPTION COEFFICIENT FROM CN L MU 

contribution to absorption cnrrriciENT from co l mu 

contribution to absorption coefficient from cz l mu 

contrihutu'n to absorption coefficient from C3 l mu 

normalized FttFOUENCV USED AS INOEPENOCNT FREQUENCY L MULL2 

VAR1A31.E TO OtHNE BALMtR ALPHA LIME 

PATH LINGTH parameter DESCRIBED IN THE INPUT SECTION C RAD 

LUtALLY DEFlNtu VARIABLE L i<ULr2 

coNTRihininn to absorption coefficient from H2 L HU 

THF OirFERENCE BETHtEN FIIHT AMD THE CORRF SPONdING L UINT2 

CONTINUUM FlUX (OR INTENSITY) 

THE DIFFERENCE BETWEFN FIIPT AND THE CORRESPONDING L LINT2 

CONTINUUM FLUX (OR INTENSITY) 

contribution TO THf. ABSORPTION COEFFICIENT FROM INDIVIDUAL L MU 
LEVELS (PHOTOIONIZaTION) 

RUN normalizing FACTOR IN GAUSSIAN bUHlNATlON, L RERAY 

PRODUCT OF IDIVI AND ELEMENT OF ROW, L RERAY 

CONTRIBUTION TO THE ABSORPTION COEFFICIENT FROM NO L HU 

contribution TO The absorption COEFFICIENT FROM n2 L MU 

contribution to THE ABSORPTION COEFFICIENT FROM H2f L MU 

LOG OF MOLE fraction OF EACH SPECIF L EOUIL 

contribution to the absorption coefficient FROM SIO L MU 

partial OFRIVaTIVE nr equatton krt the growth factor L FREQ 

Z (to ZS IN AEROTHERM REPORT 73-8b, ) , . .USED IN Nf.WTON 
HAPMSUN ITERATION TO ESTABLISH LINE GROUP fRf.OUENClES 
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DUU2 


U 1«I»UT 


CUB3 

lolallv 

IHPUT variables, II NUm-ZLKU ASSlUhiEO 10 

♦ itmol. 

L iNPUl 

OUHA 

BASMOl* 

SICmA and LPOVRH, RESPr.CTlVtLY 


L INPUT 

DUBS 




L INPUT 

DUD 

locally 

oeunfd variable 


L EOUIL 

OUM 

locally 

OFflNFD variable 


ALL 

DXY(1,J) 

partial 

DLHIVA1TVC3 Ok THFRxnDYHAHlC VARIABLES 1 

mrt 

L EQUIL 


OY 

OV 

C(K) 

CB 

CC 


TMkPMOt'YMAHit VAHlAHtCS J» TH» VARlABtLS iM THk 1 

sr.i ARt partial PktSaURfc 

Oi- all (mot just BASk) SPLCU.S. THL J VAHlARi.l’S AR£ 
H,P,Klr^^,K3*...(:Li ^»F:NTAL MASS I HACTIUNS. 

DY(I) s YY(IA1)-YY(T) L COMTN2 

NOT ACTIVfc C F-OTCOH 

LRKORS In CHLHISTRY FOUATIONS (mass balance ERRORS FOR N C tCTCUK 
Equal to oh Less than is** equilibrium errors for n crlaten 
THAN ISA* KHLRI' IS* IS NUMBER OF ELEMENTS INCLUDING ELEC» 

TRONI 


NOT ACTiVt 

FIXFO ARRAY OF FHEQUENCIF8 MEASURED FROM THE 
PHOTOIONI/AtIPN THRESHOLDS. ** 0, I *2, R, 6,8, 10*20, 


C EOTCOH 
L MU 


CFf 

EL 

EHSH 

LMSBL 

EHSH 

CMSML 

EMT 

ENL 

tPC 

LP8 

ERF 

EXP^ 

tXPN 

El 

no 

FANOA 


L MULF.2 

NOT ACTIVE C EOTCOH 

NOT CURRENTLY USED L DADIN 

NOT CURRENTLY USED L OAOIN 

SAME AS AHV L DADIN 

SAME AS AHVL L DADIN 

NEGATIVE EMISSIVITY OF THE LAYER (EQUATION 65 OF REF, 1) L TRANS 

MAXIMUM h;.'>3 balance ERROR 

LOCALLY OEFINFD VARIABLE L MU 

ELECTRONIC ENERGY LEVEL (EV) C RAD 

ERROR FUNCTION FUNCTION 

EXPONENTIAL FUNCTION FUNCTION 

TEMPKRATURN tXPONENT FOR STARK BROADENING (FROM INPUT) . C LINE 
EXPONENTIAL INTEGRAL t «ULE2 

E10« ,R3R29Rfl82I U MULE2 

FIRST HALe Oe ALPHANUMERIC NAME OF EQUILIBRIUM SPECIES C EOPCOM 
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FAHU8 

FF 


FHV 

FHVC 

FHVM 

FHVP 

FHVS 

FHVS 

FHVSIN 

FHVS2 

FlIH 

FIIHT 

FIJP 

FIIPT 

FIM 

FIM 

FXHI 

FXHO 

FXP 

FIP 

FIPI 

FIFO 

FU 

FU2 

FW 


second half of AlPHA‘nmE«IC NAHL of EOUILIBRIUH SPECIES C EQPCOM 

F number of INClVlnUAL LINE IF AN UNlU*<PFO LOWE« LEVEL C HAD 

XS USED. OlHtR'*ISt IT s C(n*F/GEE(L) •‘HEHE C(T) IS iHf 
STATISTICAL FT OF THE ABSUHhlNG LEVEL AND Gtt(L) IS ThE 

statistical at of thf combined level used in the 

CALCULATION 


MEAN FPEGUENCY OF LINC CROUP 

FREOUENCT OF A CONTINUUM SPECTRAL POINT 

LONER FREQUENCY LIMIT OF LINE GROUP 

UPPER frequency limit OF LINE GROUP 

VALUES OF LINE FREQUENCIES HIThlN LINE GROUPS 

VALUES OF LINE FREQUENCIES WlTHIN LINE GROUPS 

FHVSIN a I, /FHVS 

FHVS2 a FHVS*FHVS 

INTEGRAL OVER THE SPECTRUM OF THE FLUX (OR INTENSITY) 
DIRECTED AMAY FROM THE NALL 

THE TOTAL (LINE AND CONTINUUM) FLUX (OR INTENSITY) 

ASSIGNED TO A PARTICULAR LINE GROUP AND DIRECTED ANAY FROM 
THE NALL 

INTEGRM. OVfR THE SPECTRUM OF THE FLUX (OR INTENSITY) 
DIRECTED TUNARD THE NALL 

THE TOTAL (LINE AND CONTINUUM) FLUX (OR INTENSITY) 

ASSIGNED TO A PARTICULAR LINE GROUP AND DIRECTED TONARD 
THE NALL 

DIFFERENCE BETNEEN THE CONTINUUM SPECTRAL FLUX 
(OR INTENSITY) DIRECTED ANAY FRUH THE NALL AND BEE 

DIFFERENCE BETWEEN THE CONTINUUM SPECTRAL FLUX 
(OR INTENSITY) directed ANAY FROM THE NALL AND BEE 

NOT ACTIVE 

THE SPECTRAL INTEGRAL OF BEE FROM 0 TO THE CURRENT 
FREQUENCY (USED IN CONTN2) 

DIFFERENCE BETWEEN THE CONTINUUM SPECTRAL FLUX 
(OR INTENSITY) DIRECTED TOWARD THE HALL AND BEE 

difference between the CONTINUUM SPECTRAL fLUX 
(OR INTENSITY) DIRECTED TOWARD THE NALL AND BCE 

NOT ACTIVE 

NOT active 

si FOR INTENSITY CALC«f a2 FOR FLUX CALC 
SAME AS FLl 

aO FOR normal PRINT-OUT# NOTsO FOR EXTENSIVE PRINT-OUT 


C RAD 
C RAD 
C RAD 
C RAD 
L FREQ 
L LINT2 
U HULE2 
L mule 2 
L C0NTN2 

L L1NT2 

L CONTN2 
L LINT2 

L CONTN2 
L HN72 

c rad 

C RAD 

L CONTN2 

L LiNT2 

C RAO 
L CONTN2 
C RAD 
C RAO 
C RAD 
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FHU 

FMU 

FR 

FRM 

FX 

FO 

F01»JV 

F2 

GAM 

CAM 

6AHJJ1 

GAMP 

gamps 

GAR 

GFE 

GCG 

Cb 

Git 

6MAX 

GOR 

GUP 

H 

HCH 

HEAD 

HH 

HI 

HQS 

HS 


sO fOH IMFMSTTY fALC» ^OTsO M'M FLUX CMC C RAD 

comimuuh cnfFurif^n (l/c^'•) oR mass L cumin? 

AWSOhPriON C.=tf flCIL’.I (?’.‘-'n3) GE i) 

fONIINUUM AhSfif'f’l I'lN cnfFUtlE.NT (1/CM) OH MASS L LINT2 

AfiSORPTiriN CU‘>Hr.U»'UKR(Ji) CF 3) 

SPFCIES HULF FRACTION C Ah 

7HF. SAME AS FIH L CONIN 

GRr.=»Th FACI L GIvF.N IN ff 23 OF AtRUIHF.RH RF.PURI 7i-65 L FREQ 

FOs (l,2S2«F-9)*(NF:**,hG66f«66667)» HhtRF Nt « M) DENSITY L MULF? 

OF ELECTRONS 


FOINVsi./FO 

locally off info ARRAY 
ISENTROPIC CXPIULNT, 

LCRINTZ half n1(,7H AT HAuF INTENSITY (CREATED IN HULt2» 
BUT EOUIVALF.SJCEO INTO THF AM SCRATCH ARRAY) 

GAMJJI s GAM(JJ,1) 

half line brldtm per electron at 10»000 OfG K 

LlNF HALH RlOTH VALUE USED TO F'STAHLlSH FREGUEnCY GRID 
LINE stretching PARAMETFR (DlFlNro BY Eo, 7l» REF I) 
STATISTICAL WflGHTS OF ABSORBING (LUrLR) CtvELS 

NOT ACTIVE 

FUNCTION used IN EVALUATION OF HALF WIDTH OF SPECIAL H 
LINES 

NU max AS DEFINFD BY EO 23 OF AEROIHERM REPORT 73-85 

FREQUENCY INCREMENT BETWEEN LINE CENTER AND ADJACENT NODE 

A COEFFICIENT FOR RESONANCE BROADENING FROM HUNT AND 
SIRULKIN 

SYSTEM ENTHALPY CAL/GH 
CNAHBEM (OR STArNATION) ENTHALPY 
ALPHANUMERIC HEADINGS FOR PRINT OUT PURPOSES 
fNTMALPY OF MIXTURE (BTU/LB) 

POLAR ENTHALPY FOR EACH SPECIE 

PMA enthalpy (OR ENTROPY) FOR EACH SPECIE 

enthalpy UPSTREAM OF SHOCKWAVE (UTU/LO.ll . 


L MUCE2 
L MULE 2 
L EQUIL 

L HULE2 
C RAO 
L FREQ 
L FREO 
C RAO 
L MULE2 
L rouiL 
L FREQ 

L FREO 
L FREQ 
C LINE 

L EQUIL 
L EQUIL 
L LINT2 
C RADCOH 
C EQTCCM 
L EQUIL 
C RAPCCM 
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I 


i 



HTM 

HTM(n=i,6,(,TM(?)=i,,MTK(n=hiK(i-?) 

t 

IQVll 

HV 

CONTINUUM mroutf'CY point 

L 

nu 

HVO 

LOtAltY OtM'ifO VArtiAbU 

L 

HU 

HVG 

transition FRlOiitNCV Ht'TvtfN HIBERmAN AND NORPANS TnO 
LOW frequency lORMtllAS# FHUt-i INPUT, 

L 

MU 

HVK 

FREQUENCY OE AN IMDIVIDUAJ. LINE CENTER 

C 

LINh 

MVT 

PHOTniONlZATIOM THRESHOLD FREQUENCIES FROM INPUT 

L 

MU 

HV3 

HV3sHVahv*HV 

L 

MU 

I 

INDF.X USED FDR MANY ARRAYS 



lA 

LINE GROUP index for SPECIAL H tINtS AS OESCRIHED IK TH£ 
INPUT section 

C 

liui 

IC(K) 

Negative index (>r elft’ent corresponding to kth base 
SPECIES 

1 

INPUT 

ICH 

ICH is The INpfX OF the specie in the OfMlSTRY array 

’.•'HICH HAS AN INDIX .11 IN THE ARRAY OF KADUTING 
SPECIES 

L 

MU 

ICON 

WHEN ir.UNsO, CHEMISTRY ITERATION IS CONVF.RGEO# WHEN ICON 
8i,CMf HiSTRY lUHATIPN IS IN PROGRESS 

1 

FQUIU 

IQX 

CORE PACKING INDEX TO CONVERT i-0 ARRA»M TO .^«D ARRAY 

L 

L1NT2 

IC 

INDEX ON LINES .STahTING »11h FIRST LINE In uttK 

U 

UInT^ 

lEND 

locally DEFINED INprx 

L 

MULt^ 

IG 

ELIMlNA’^iON INDEX IN BASE SPCClES-ELEMt NT CORRESPONDENCE 
LOGIC, 

L 

INPUT 

II 

LOCALLY defined VARIABLE 

all 

III 

INDEX ON THE GROUND STaTeS OF THE LEVELS KITH INPIVIDLaL 
PHOTOIONIZaTION cross sections assigned, for example* 
LET JJsIlEd) » THEN THE ABSORBING LEVtL FOR THF FIRST 
PHOTOlONlZATlf'N TRANSITION HAS AN ENERGY OF EPS(JJ), A 
statistical ■'EIGHT OF GEE(JJ)» ETC, 

c 

CONTM 

IIS 

INDEX ON MOLFCUIAR SPECIES CONTRIBUTION. IF IISIUsO 
The rOMRlBUTlON for the first MOLECULAR SPECIES BUILT 

c 

CONTH 


INTO MU (E,G. N?+) IS NOT lNCEUpED»IF ll.SU)al* IT IS 
I.CLUOEO, I1S(2) APPLIES Tij THE StCONo MOLECULAR SPfClE* 

ETC, 

1 

IJ 

INDEX ON THE STORED VALUES OF XI USED AS CORRECTIONS IN 
THE BIDERHAN AND NORMAN FORMULAS 

L 

HU 

IK 

INDEX ON THE ABSORBING LEVEL FOR THE LINE TRANSITION 

L 

MULE 2 


THE LINE transition 18 ASSIGNED TO THE ILK TH SPECIE . 

L 

HULE2 

— 

IN THl radiating SPECIES ARRAY 



IH(K) 

RON AND COLUMN INDEX IN INVERSION OF CIJ TO UH 

L 

INPUT 

INI 

LOCAL JNDtX 

L 

INPUT 


i 

i 
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A 





IMJ 

local 

INDEX 

IML 

local 

INDf X 

INO 

SPACE 

INDEX 

INDSHL 

INDEX 

ON The 


CfCK, 

F JJ 


JJ th 

MfiHtR 
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lUPT 

lOSL 

IP 

10 

IS 


ISDUK 

ISH 

I SHI 

1SM2 

ISP 

ISPL 

ISP2 

ISPJ 

ISO 


L IfJPUT 
L iMPL’t 
L t'-'inu 


C LINK 


fttffcPS In Tht Sf.r.UtiO SPfClAt H UlNt»t.lC, 

INOF.X ON IHF RAin* 1 I»Jr, SPF.Clf.S WHICH AHfc TO 6E ASSlGMtO C CONT«« 
COwT«lHUTItU:S iMt in» FRt'vl'tNCv BIHI-PmAn AmO POPmAK 

FLiPMiiLAS, U JJsi(ilw(J). Then ThE ri«ST SPECIES ASSIGNED A 
Bl<JEPrAN AhG K-np iA»; COMPONENT has A 2 VAl Ut UP 2(JJ), 
im.N(2) KEMPS TO ThF SLCCPiO SPIClf- TO 81 ASSIGNCO A 
81 BEKHAN AND NOK.-.Arj component# ETC, 

lOPTsO FOK EIPST EKUH. CAi.U SO THAT ITEHATIVE VALUES *<1LL 
BE initialized 

NOT ACTIVE 


ISTART 

ISX 

ISXP 


NUMBE.R OF Base specif S in ChEHISTRV SOLUTION 

This is thf. fikst pEMbCR or a family index in suhroutinf. 

HU, THUS J.isistn INHlCATES THAT THE JJ TH PE hBI R OF ThF. 

radiating species starts the first family, IS(2) refers 
TO the specie i mKh starts ThF. second r Amu y, etc, 

1SDUH=IS 

ISM=IS-1 

lSMlsIS-1 

ISM2=lS-2 

ISpaiS-M 

IF ISPI.SI# MIH.E2 nTLL look THROUGH THE ( INES In THE 
ADJACENT LIN' GROUP FOP A SPECIAL H LINF, IF THERE IS 
ONF THERE# IT -ILL INCLUDE ITS CONTRIBUTION IN THF LINE 
ABSORPTION COLFFICJFNT, IF 1SPL=0#NO SEARCH WILL BE MADE, 

ISP2SI8+2 

ISP3SIS+3 

THIS IS THE ah INDEX ON THE SPECIES WHICH HAVE 
INDIVIDUAL PHOTOIONIZATION TRANSITIONS, IF JJslSS(l)# 

THEN The firm SPfcLIF WITH AN INDIVIDUAL PHOTOIONIZATION 
TRANSITION IS THE JJ TH meh{«FR OF THF. RADIATING SPECIES, 
1SSF2) REFERS TO THE SECOND SMCIFS WITH AN INDIVIDUAL 
PHOTOIONIZATION TRANSITION ASSICNtO»E TC , 

LOCALLY DEFINED INDEX 

LOCALLY defined INDEX 

ISXPsJSX-Fl 


C SAVE 

L LINT2 
L EOUIL 
ALL 

C CONTH 

L LINT2 
ALL 

L EQUIL 
L EQUIL 
ALL 

L MULC2 
ALL 

L EQUIL 
C CONTH 


L HULE2 
L MULE? 
L HOLE? 
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ISO 

ISOslS 

ALL 

ITER 

CCHIN’LR for CHff-lSTKY ITERATUN- 

L EUbIL 

IX 

DFF.UG rii'G, 

1. RIRAY 

lY 

Index (in space K<inf khepe hutput is to rf prinuu 

1. CUNTN2 

IV 

Index on spacf M ia vaa.Rt nuipui is to nr printf.d 

L LINT2 

I2Z 

Index i^hich detekkjnfs the pfinnn used to handle the ear 

HINGS (IE H LINES 

C CONTH 

12 

I2SIS+2 

L EOUIL 

J 

LOCAL INDEX 

L fPlilL 

J 

LOCAl INDEX 

L 1.,. UT 

JDUH 

LINE INDFX 

L HUUF.2 

JHOl 0 

INDEX ON the special H lUE (-UTSlOt THE CROUP 

L MUI.E2 

JHV 

COUNTER (.'Sru !M CALCULATION OE‘ HE.AN OPACITIES- ACTIVE 
ONLY WHEN KRtnai 

L MU 

JI 

INDEX (IN HE'iaiHS OF THE RAMaTInC SPECIES ARRAY 

L MU 

JIS 

THIS Index civfs HU. CnkPESPriNOAt.CE. bFThFE»! THE SPEtlFS 
In THE PADUUnC. SPECIES ARRAY AM) TH(. SPtCILS IN T»tC 
CHEMISTRY AkRAY, U JJaJlSCl), THE E IkST SPECIE IN 
THE RADI ATI •'■'1, SPKUS AkkAY IS lnE SAME AS T«E JJ 1h 
SPECIE IN THK (HEMISTPY ARRAY, JIS(2) REEfkS TO THE 
SECOND SPECIE IN THE RADlATUG SPE-CIES ARRAY, 

C CONTH 

JJ7 

JJ7=(JJ-1 )*7» WHERE JJ IS IHE lM)tX ON THE SPECIAL H LINES 
n TO (I) 

L MULE 2 

JLV 

LOCALLY defined INDEX 

1. MULE 2 

JH 

J*I, WHERE »Ji IS HASK SPECIES COUNT, 

L INPUT 

JMP 

VARIABLE statement HUMbER FOR FORTRAN TRANSFERS 

L HULE2 

JP 

LOCALLY defined VARIABLE 

1. EOUIL 

JS 


L EQUlU 

JS 

LINE INDEX counting FROM FIRST LINE IN GROUP 

L L1NT2 

JS 

LINE .'NDFX COUNTING FROM FIRST LINE IN GROUP 

L MULE2 

JT 

LOCAL index 

L EQUIL 

JV 

locally defined index 

L MULE 2 

JVV 

locally defined index 

L HULE2 

K 

LINE CROUP INDEX 

L LINT2 

KK 

LOCAL index 

L INPUT 

KPHA(N) 

phase INDCr FUR A SPECIES, IsGAS, 2#SOLID, IsLlOUlD, 

L INPUT 
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KF 

KGP 

KGPT 


KOUT 

KQ 

KR 

KS 

Kl 

Ka 

I 

L(N) 

tc 

LOLX 

LK 

LL 

LUN) 

ILA 

LLB 


LLC 




’V ^ 

:f , f 


y}'- ^ V 
f 


|: 

I" 


LLUN) 

I.S 

UY 

H 

H 

MODE 

MPJ 

N 


i m 


ri(u. CONTt^OL MC'-.l »S C INTCOM 

INOFX UN CURMt^iT LINt GROUP l.'StD IN S’JhUOUTINE MUl.t,> C LIME 

INDEX ON iHt List GtJniJPS Al'jACFNT (ANO Hfl 0*» IN FREOULNCt) 1. MULL? 
TO THt LINL GROlUS .slTh 7M. SPLCIAU h Llt.ES 

OUTPUT UNIT 

CHEMISTRY CONTMIl. 'vUPHF WS 
radiation control NUMrtLHS 
index on first UPM' in group to UL considered 
index on first U'-e iu group transmittfo Through cohhun 
index on last lim. in group transmitted through common 

INDEX ON SUBGROUP FMECUfNcItS COUNTING FROM THE START 

OF The line group 

INDEX ON COLUMNS DURING INVERSION 
LIKE COUNT index (FOR OUTPUT PURPOSES ONLY) 

NOT ACTIVE 

SUPGROUP FRF.UUFNCT Indfx COUMTIMG from The start of 
EACH LINE 

LOCALLY uEFlNfi) jN()iX 
ROW INDEX OF PIVOT FOR NTh COLUMN 

WHEN LLA = 3, FPFDi't'CY aPITaRS In OUTPUT HEADINGS, WHEN 
LLAS5# have length APPEARS IN OUTPUT HEADINGS, 

WHIN LI He?, UNITS OF (bV) aRE PRINTED OUT, "HEN LLBsfl, 

UNITS OF («'j) fcRb printed OUT, 

WHEN LLCS13, FLUX UNITS ARE PRINTED OUT, WHEN LUCsl«# 

intf-nsity units are printed out, 

WHEN LLLeJl, UNITS FOR THE ORDINARY ABSORPTION COEFFICIENT L LINT2 
arc printed OUT, whin LLLs9, UNITS FOR THE HaSS ADSORPTION 


COerFICitNT ARE PRINTED OUT, 

COLUMN index of pivot FOR NTH HOW L RERAY 

INDEX USED TO Rf. ARRANGE COLUMNS IN RERAY (SEE LAR) L RERAY 

INDEX ON SUBGROUP FRf.0Uf,NClE8 COUNTING FROM FIRST t— 0 L FREO 
DESIGNATES INPUT UNIT (r.,G,# TAPE) C INTCOM 

LOCAL INDEX L INPUT 

UNSUBSCHIPTEO VALUE OF K0(l) C EOTCOM 

LOCALLY defined INDEX L LlNTa 

TOTAL NUMBER OF SPECIES IN CHEMISTRY SYSTEM C EOPCOM 


C FQPCOM 
L OAOIN 
C INTCOM 
L MULEa 
C LINE 
C LINE 
L LINI2 

I REHAY 
U LINT2 
ALL 

L LINT2 

all 

L RERAY 
L LINT2 

L L1NT2 

L LINT2 
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N Of-.SJ(,K;ATF.S fmlPin i‘viT C INTCOM 

NALS nr AFt'-lC r.l [ r,T* 'If. Jf. tt^rLS (SU-t all SPLCILS) c had 

NnL»’ Mj“prH yp spatim. \c;.f acpdss inr BnyioAHr layfh (not c had 

LELfSSAKlLY LQ'JAL If '"fY) 

NCRC nut ACTIVI C CONTM 

ND INPPX ON CR01.':m!> 'i.rvH. OF l.’JANSnidS C HAD 

NF 1N('FX WHICH HLr.OU'S aMK.h (U ThF SI’LCIAI h LINKS IS L RULt2 

PRfStMT IM T('T t.KnilP, Nl =l » OH lYmAN ALPHA# 2 

FOH LY*'Af. HhiA, nr. 

NFK Nl'HCFR OF SU‘ HRyiP »• HK '^Ul PC 1 1 S PLC I 1^1 s ?*NFK*1 L FRtO 

EXCFPT FliH r<HST At.n I.asT LINI IN tiKDUr’, 

NHLINF SAHF: as MF FXCIPT that it is NMT SOHScHIPTED L MULE2 

NHV NUNBrn or Li:-r groups c rad 

NHYDR ALF’HANUHERIC I'Ahk f-nw H L MULE2 

NI YY INDEX WHEPh LINE CO'ORD I NA TF S APE EVAlUATtO C LINK 

NIC MINfiER OF SPATIAL POIMS liHtHfc THA iSPOHT IS PRINTED OUT C RAO 

n*ln SPACI iNDicns >oikhf tkalspopt is printed out c rad 

NIO NID = THF IIN( CH-TFR F RF GUf '.C 1 ES OF THf SPECIAL H LINES L HULE2 

HlMTIPllED »»Y Jfi.io AND CUNVfRTLO TO A FIXED POINT VARIABLE 

NIHVC TOTAL MIPBEH OF Cf'f.'T T MHJH SPFCTRM POINTS C RAO 

NIK lF4DfX ON TH» FL'HGRC'UP FREOUFiLCY COUNTING FROM THF. L FREQ 

THF START Of THE LINE 

NIKP N1kP=mIK-H L FREQ 

NIL NUMBER OF INDIVIDUAL PHOT OIOM Z AT I ON THaNSITIO-NS ASSIGNED C CONTM 

TO DATA DECK 

NK THF number of FRLGilENC Y POINTS aSSIGNFO TO EACH LINE L EREO 

EQUALS H*NK+1 

NLG THE SAME AS FLG EXCEPT THAT IT IS A FIXpo POINT VARIABLE L CONTN2 

NLG THF. SAME AS M.G EXCEPT THAT IT IS A FIXED POINT VARIABLE L LINT2 

NLGl THE 3AHE AS FLGl FXCFPT THAT IT IS A FIXED POINT VARIABLE L CONTN2 

NLGl THE SAME AS FLGl EXCEPT THAT IT IS A FIXED POINT VARIABLE L LINT2 

NM NUMBER OF RO«S LESS ONE L RERAY 

NN NUHfiCR BY WHICH COLUMNS EXCEED RONS IN PRINCIPAE ARRAY L RfRAY 

NNN number of column vectors in secondary ARRAY L RERAY 

NOE SAME AS XNOL OUTPUT 

NP number of COLOMNS in primary array, U RFRAY 
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Nf’PL 

NSliN 

NSHV 

NSU 

NSf’tC 

NSP2 

MSTl 

NT 

NU 

NXI 

NY 

NYM 

NYP 

UTI 

OUTC 

OUTL 

P 

PC 

PCP 

PH 

PHT 

PLN 

PLP 

PM 

PO 

POP 

PP 

PPTC 


NUMHtR riF HiUiUEMCY POINTS PI R l.lNL (SLT Tf! 1 ‘.i ) EXCEPT I LIMT2 

For first a^.o i asi limf in fach r.Htiup ^.hicp have one extra. 


NUmHLR of HIBEKt'AN AwD KORnAN SPECIES ASSIGNED TO OATA 
PECK 

HUbPER of IKKO'ifucY fMjIt-TS PER LlNf GROUP 

NUMHFR DF SIKONO CiNFS IH GROUP (SET TO NUMBER OF l.INES 
IN GROUP !tl THIS VtRSlOM) 

NUHHER of SPLCIFS COMSIGFREn In chemistry calculation 
HSP2=N+2 

Number of AtUMTC and tomc species assigned to the 
radiating sfrus array-does not ihclude molecules or 

ELFCTRUNSfl'R HEGMlVF lONs IF THEIR CUN'TRlIHlT IONS TO 
THE ABSURPTIUm rOEFUCIENTS ARE BUILT INTO SUBROUTINE HU 

TOTAL Number uf radiating spfcies in the radiating 
srEcits array 

NUMBER OF LINES IN EACH I INI GROUP 
NUMBFR OF SPECIAL H LINES 
NUUnCR OF Y/DEL'A POINTS 
NYHsNY-1 
NYPsNY+1 

optically thin il'jx aSSIGNLO TO LINE /FRE DUl.HC Y 
IK'CHIHENT ASSlGMl.ti TO LINE (FaRT OF FI’UlVAUHl WIDTH LOGIC) 

NOT ACTIVE 

NOT active 

SYSTEM PRESSURE 


LOCALLY defined VARIABLE 

LOCALLY DF.HNtn VARIABLE 

LOG OF SYSTEM PRESSURE 

LOG OK PARTlAl PRESSURE OF EACH SPECIE 

PRESSURE nOLfcCULAR WEIGHT PRODUCT 

lOCALLY DFEINFO VARIABLE 

POP*TF.HPERATURE » KT(EV) 

partial pressure OK THE SPECIES 


C CONTH 

L LINT2 
L L1NT2 

C EOPCOH 
L FQUIL 
C CONTH 

C CONTH 

C RAD 
C LINE 
C RAO 
ALL 
ALL 

L L1UT2 

ALL 

ALL 

C eotcoh 
L FQUIL 
L EOUIL 
L EOUIL 
L EQUIL 
1. EQUIL 
L EQUIL 
C EQTCOII 
L EQUIL 
C RAD 
C EOT COM 
L EQUIL 
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SYSlhM PRtSS'.iWh (ATM) 


L tOUIL 


Ph 

P«LS 

PT 

PTiU 

PTt 

PTH 

PHDH 

QR 

K 

RA(N) 


R£ 

RC(J,N) 

RD(J»N) 

PTCJjN) 

RF 

rfact 

RHO 

RHS 

RT 

S 

S 

S(N) 

SAJi 

SD 

Stt(J) 

sha 

SHAS 

8 HB 


PHKSiLIRf. (ATH) r. 

LOCAILY OF.FlI.tO VARUtil! L 

L 

locally nff i*Jt n vari ablf. u 

u 

UlCALLY nrpIHFO VARlAiU.h I, 

fillT RAIUATIVK FI liVn*Ti'/f-TP-SlC) U 

1 . 


HLAT of format ir.iJ OF MniK'.OU aT pro OFG K from JaNAF HASt I 
STATfc, f.Al /MOt.h, M=l (iR pUR i.Uw AMD HIGH ThMOtHATliRt RaN- 
CtS, RFSPtCTl VtLY. 


C 

cuRvr FIT cn':r.T/.'.T for TticRKnovNAi-iic. data (Th{- ouantity f 5 r 

PlSCUSSfO It! DROOP « tu ItJPUT J ' GTRUt: T I (IDS ) , D= l OR 2 FUR 
LDV. ANp HIGH TKHPLRATUK’f « AN'Gfc .S , Ph SPt C T I VtL 

CURVF FIT cni.GTt'iT FtiR TlitHHODYOADlC OATa (THF QUANTITY FA C 

Discussfc'n ID c.Rt'.op ^ nr mt'uT ii'structjons), r=i or 2 for 
UIW and high T(.‘-PF RATUWF RADGFS»RFSP(.CTIVKLY 


CUR'-'F FIT CO 
D 1 ' * C 0 G G C n ID 

LOH and high 


KTaDT for THf RMr'nVDMMC DAT A (THF DIIANTITY ( F 


DDO'OP u ill I'.POT T ** G T It Or T I iV . G ) r Duj (jF 

Ttt'f’i paturf rad(;f,s»i'f gpicti vfl.y. 


f OF 


c 

Pad Fl-UX PRIDTU) = Rad flux actual / rfac.t ... usf.d as c 
A (;ONVFRr.AN(,t AH) FUR FU’w FIF.UD CUUF’LLD CALCULATIONS 

LOCALLY htnULD VaRIaSLE L 

L 

L 

AN ARRAY USLP FOR LOCAL STORAGE IN MANY SUBROUTIUES 

L 

LARGEST CONTRIBUTHTN TO TERM IN N TH COl '.IMN L 

L 

C 

fcNTPOPY, C 

LINE shape FOR THE INNER REGION OF THF. PALMER ALPHA LINE L 

derivative of sha wrt del L 

LINt SHAPE for THE INNER REGION OF THE pALMtR BETA LINE L 
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I 


RAO 

EOUIl 

F.UUIL 

FQUlL 

F.OUIL. 

MULFS 

main 

MULF.P 

INPUT 

EOPtOM 

ERPCOM 

E.QPCUH 

F OPCOM 

EUPt.Un 

RAD 

EUlllL 

EQUIL 

tOUlL 

EQUIL 

RF.HAY 

EQUIL 

EQTCOM 

E(TTCOM 

MULE a 

MULta 

MULEa 



SHH 

SHtiS 

SHI 

SK 

SL 

SLA 

SLAS 

SUB 

Sl.BS 

SLI 

8LJJI 

SM 

SMO 


SMZ 


SP 

SP 

SP 

SPl 

SQRTFO 

SORWDH 

SRI 

SS 

SUMH 

SUMP 

SUMS 

SUMT 

SVA 

8VB 


LIHl. SHAPL r;>P 1 ft IKNeiR RLr.If 'i of Thl HALUtR bLTA LINE L 'HUF 2 

DtHlVATlVE (If ShH wKT XI L MlILf? 

SAMh AS HS tX((.f>T f OH UNITS L HHJll 

ERROR IN The I'-K'H't NC.Y (,filO FdWHULA (H5 23 OF AFROThERM L FREO 
HtPfjRI 73-65) AS USf n IN NtwIiJN RAPhSUN ITtRAT10l4. 

line STKENfiTH tAU'-ULATEO IN HULLS iHlT E QIJ] VALENCED INTO 


THE AM ARKAPV 

LINE Shape EOK lUf inner RE&IUN of the LV^an aLPh IINE L MULE2 

derivative of SLA V.RT Al.PH L MULE? 

line shape for IHI inner REr.TON OF TmE LYMAN BETA LINE L MULE? 

derivative UF SLL UHT beta L mule? 

strong IINL FlUX ASSIGNED TO LINE/ FREOUeNcY INCREMENT L LINT2 

ASSIGNED TO LINE ..(PART OF EUUlv/.LEtn WI(,Th LOGIC) 

SLJJIsSL(JJ/l) E MULE? 

HAX1MP1 ALLO-FO frtLUUrMCY 1H(;RF.'’FUT EMi'M I INF CFNifcR IN L FREO 


LOW FKFOUFNr.Y M WF f TItif! . USF D TO PLACE MOST REMOTE 
SUBGROUP rKL'iitNCV POl( T aSS1(/;E0 TO THE LINE 

FRFOOF.HCY U CRfMEM ASSIGNED 1" XU(iL LI»'ES WITH AV| RaGI 0 L LINT? 


PROPtRTIt S, . , (P art Of KfUlVAIflT ^IDTH APPROXIMATION) 

FRlUOF-NCV iCfcrMCNT aSSTONJD to line. ..(PART OF L LINT? 

EDuIVALENI f'lDIM AppMlXlMAlI'i'O 

C EQPCOK 

MAXIMUM ALLOwi-n fREOUCNCY JNcPpHIUl FROM LINE CENTFR IN L FREQ 
HIGH ERinUENCY DlRLCTIftN, USEli TO PLACE FRYST RfMOU 
SUBGROUP FREOUENCV POINT ASSIGNED TO THE LINE 

ELEMENTAL MAvSS FRACTIONS ' C RADCDM 

PRESSURE upstream ('F SHUCKWAVF, (ATM) C RADCUH 

SQHTFOa F0A*,b >, MULE? 

sorwdhswoh**.s l mule? 

DENSITY upstream OF SHOCKWAVE (IB/CUBIC FT) C RADCPM 

LOCALLY DFFlNf-D VARIABLE L 8l.OP(i 

LOCALLY DEFINED VARIABLE L EOUIL 

LOCALLY DEFIHED VARIABLE L EQUXL 

LOCALLY DtHNED VARIABLE L EOUIL 

LOCALLY defined VARIABLE L EQUU. 

C EOTCOM 
C EOTCOM 


1 

I 


1 

I 


) 

! 

{ 


t 

i 




p I 
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DHIM-PWAWHv 




i j 


SVC 


t 

EUTCOH 

SVD 


r 

EOTCOM 

SVl 

Wf-UKITY UPSTRLA‘1 rl^ SMUCKHAV . 



SI 

A' A.CR'.Y USFO KIR LOCAL 5 TOK/r,F. ' -NY SUBROUTIf'ES 



SI 

THf 1 INK AO?^iiKPTI()M COfLFKT>-- . LJ.UC?! Hf. THt tONTRl- 
BUTIONS li'jf Tti f.vi.HLAP"lN:; ; ' , «no ACtnUNTIN& fUR IN- 

OUCEP Ln jMSIi N 

u 

MULE 

S2 

AN ARRAY USn; fui' Lt'CAl ii fOKAKL IN MANY SUBRPUTHiES 



S3 

BETA PARAMETER F MN tUUIVA; 1.^1 .(lOTH DtflNEO BY tO <J0 PF 
ALROTHERM report 7il-R5 

L 

L1NT2 

T 

TtNPLRAlllRE Ot&,K 

C 

EOPCUM 

TA 

(HALF) Half RIDTh for common H IINE.S a TA* TB 

L 

MULE 2 

TAl 

CONTINUUM OPTICAL PEPTH ALONG THE RAY FOR IHTEt.'SITY 
CALCULAllUN, ALONP THF. 60 DEG PAY FOR FLUX CALCULATION 

C 

CONTN 

TAU 


L 

EOUIL 

TAU 

CUNTINUUM OPTICAL depth ALONG THE HAY FUR INTENSITY 
CALCULATION, Al I.nG TFFE 60 DEG RaY FOR F IIIX CALCULATIUN 

C 

LINT2 

TAU(K,KK) 

INTFRMEDIATE ARRAY usEp IN KUKMING UM 

l 

INPUT 

TAUC 

OF'TICAL DEPTH AT THE LINE CtHU'R FOR INTENSITY CALCU- 
latiejn, Txict that eor a flux calculation 

L 

FREQ 

TAUT 

total (LINE And rONTINUUH) OPTICAL depth for intensity 

CALCULATION, TWICE THAT EOR A FLUX CALfUlATlON 

L 

LINT 

TO 

(HALF) HALF WIDTH FOR COMMON H LINES = TA* TB 

1. 

MULE2 

TC 


C 

EOTCOM 

THE 

TEMPERATURE (0(G. K) 

c 

RAD 

TERM! 

FLUX (OR INTENSITY! GOMPOMFNT DUE TO GAS PHASE EMISSION 
(PART OF equivalent WIDTH lOGlC), 

L 

L1NT2 

TERoa 

CONTINUUM CORRECTliiN (POSITIVE DIRECTION) » ABSORPTION 
OF THE WALL EMISSION BY GAP, P 'ASE LINES (NtlGATlVl. 
DIRECTION) ,,,,1’AK’T OF FQUlVALtNT WIDTH LOGIC 

L 

L1NT2 

TERMS 

CONTIFhUOM CORRECTION TO FLUX (OR INTENSITY) IN NEGATIVE 
DIRECTION. ..PART OF EQUIVA ENT wIOTH LOGIC 

L 

U1NT2 

TERM« 

GAS PHASE ABSOFIPTION OF LINE COmI'ONENT Ri’LECTEO OFF WALL 

L 

L1NT2 

TEST 

LOCALLY defined VARIABLE 

L 

EQUIL 

THETA 

ANGLE UK SHOCKWAVE 

C 

RAOCOM 

TUCM 

LINE correction to FLUX (OR INTENSITY) AWAY FROM WALL 

C 

LINE 

TECP 

LINE CORRFXTION TO FLUX (OR INTENSITY) TOWARD WALL 

C 

LINE 

THSH 

transmittance of wall at CONTINUUM FREnOLNCltS 

C 

RAD 
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TMSkiI. 


U1U 

ton 

TS 

TSAVf 

TSO 

TSO 

TT 

TTHRE5 

TU(J»M) 

TW 

T1 

Tl 

Tl 

T1 

T2 

T3 

UGH 

UH(K,KK) 

V 

VA 

V0 

VC 

VD 

VE 

VEE 

VINT 

VMW 

VH(J) 

VNUCJ,K) 


Ti'ANSMjTTANCf. nr ^ALi, AT AVt;r4(;L FRtn'ir.NcifcS (jf c rah 

LINL GHUURS 

TOTAI, (UNF AM7 [:LIN^I^UUM) AnSOFPTlOH CUfFMCIfcNT L IINT2 

rFFtCTlVt, fmiGHT'.fSS TruPpPATURr CL'EG.K) fiF THE OUTER ' RAD 

BOUNDARY 

PHAGt CHAN^F Tfcf'PtRATURE, i. INPUT 


L ECUIL 
L EOUIL 


TSO s TEf.*TFF. L BUIL? 

TEMPERATURE (DFO. R) C KADC'JM 

thpeshold tempt rat uhf from input C CONTM 

upper TCfl-ERATIKf OF TruPERATUFf RANGE FOR INPUTTING C EtPCOH 

THERMOoYI'A‘'IC PPfU’tRTY DATA FOt' SPfcCIES J# Nsl OR 2 FOR 
LOWER and liPPtP tbUPFRATURE RAHGF.S» RESPECTIVELY 

WALL temperature (DEG, K) C RAO 

TtMPERATLIRF lU UMT3 OF KT(EV) I, CONTN2 

TEMPERATURE IN UNITS Of KT(tV) L L1NT2 

temperatiipf. in units of kt(fv) l mu 

TEFiPERATUKE in FV (NT) E HULE2 

KT IN ERGS I MULE2 

TEE/10000 L MULE2 

normalizing Factor in gaussian elimination, u input 

molecules of BASF SPEClfcS K IN ELEMENT KK L INPUT 

LOCALLY OFEIMED VARIABLE ALL 

LOCALLY DEFINFD VARIABLE L INPUT 

locally defined VARIABLES U INPUT 

locally DEFINFD VARIABLES L INPUT 

LOCALLY DEFINED VARIABLES L INPUT 

LOCALLY OCFINFD VARIABLES L INPUT 

L HULE2 

P * lOAA(-h) L INPUT 

MEAN MOLECULAR WEIGHT OF MIXTURF C RADCOM 

PARTIAL PRESSURE C tOPCOM 


STOICHIOMETRIC COLFFICIIN'T ON K TH BASE i.PECltS IN FORMA- C EQPCOM 
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T^fJN Of J Th SPFCltS 


VI 

V2 

V3 

V<l 

Vy-Vl 5 

HALLF 

WAU»> 

NP 

MDH 

MDHSO 

HM 

HT 

X 

X 

XAPNU 

XCH 

XD 

XF 

XHM 

XI 

XIN 

Xj! . 

XXN 

XXOM 

XIP 

XXPOB 


LdCAlLV ofcHf-KD vAPlAttiF 
Lf-CALLV npFlt.fcC! VAklAHLF 
LOCALLY r>H IsfO v*PlA»lLf 
LOCALLY OtHNFfi VALUHLF 
LOCALLY pr^l^fct1 VAPUnLLS 

HARAH|.Tf» ItJ LIM' SHAPF OF JOrf.I.AL h lP<tS 
LINl Cr"^'P{'‘ir.*;T f'J IHF SPtcTWM FLUX at KALL 
Kir.TH nw rv) (’F IHL I If.t L«T A1 WAU 

OOPPLCR half at MAIF I* tl TY 

NOPHaUI^FL' VAIDL OF CULRtNT JRliJUtNCY 
HOMSDsw()H>iV.r)h 

POLtCULAP KtlCHT Of MIXTUHfc 

PQLECULAP wnr.HT AS SUMPfD, 

MOLEC’JLAP keK.hT (;f SPICItS .» 

EJJUIVAlL^fT rJloTH PARAf'F.TrP Otrj.NtO BT to 39 OF AtROTi!t«H 

REPORT Y3-n'i, 

COpTINIiUm au 3!)HPTION tUfcFFiCJfn ORPtCTED FOH IND'JCfcO 

CONTRIBOTION to THF AHSUPPTlir. C'lEFFlCXtFlT FROM c- 
LOCALLY OEFINF.O VARIABLE 

growth factor for U^:E F«EO*'F:*r,V NOotS (OEFINEO BY 
tOUATXOMS B9 ANO 70 OF REF 1) 

contribution to the ABSORPTION ('.OEFFICUNT F«OH H- 
NORHaLIZF.0 frequency used as INDEPENDENT FREQUENCY 

VaRUBuE to OtFUE HALHF.R BETA LINE 

DIFFERENCE BETWEEN SPECTRAL FLUX (OH IMTENSITV) AWAY FROH 
THE WALL A-'O REE 

FLUX (OH INTENSITY) BOUNDARY CO.NOITION AT WALL 

temperature independent function used in the evaluation 

OF THE CO CONTRIBUTION TO THE ABSORPTION COEFFICIENT, 

IONIZATION energy OF THE 8PEC,I|:(EV) FRUH INPUT 

DIFFERENCE BETWEEN FLUX (DR INTENSITY) TOWARD THE 
NALL ANO BEE 

FLUX (OR INTfNSiTV) BOUNDARY CONDITION AT OUTER BOUNOAR 0 
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ALL 

ALL 

ALL 

ALL 

ALL 

L MULE 2 
L LINT2 
L L1NT2 
L HULE2 
L HULE2 
L MULL2 
C tOPCOH 
L INPUT 
C EOFCLNl 
L LINT2 

L LGUIL 
L MU 

L MU 
L SLOPS 
L FREQ 

L HU 
L MULE2 

L LINT2 

L LINT2 
L HU 

C CUNTN 
L L1NT2 

L JFNT2 


I 


■I UN. I iiiiiniii«ui"»,w',q,r' 


1 



XIS 

STnwro VALtft t^f THL AmC K’OHHAN XI COHkrcnON 

MCTnR,FRUH l.-iPUT 

c 

CONTm 

xjn 

CUNTIKIJUM FL'IX (Oli lUn'iSlTV) LtAVlKG hAtL AND INCLUPINC 
PtFUEtTfcD AND t!ilTTtO COKPCNtNTS 

L 

CONTN? 

Xjwt 

LINE FUJX ((.'P INItNSlTY) leaving KAUL AND IKClUOlNG 
REFLFCIF.n AND EHIITEO COV.pONFMS 

(. 

C0NTN2 

XLAM 

WAVE LfNGIH (KlCK'OKS) 

L 

MU 

XLANR 

LADEHBURG-RElr.'tE LuHCTION 

L 

LINT2 

XHOL 

«l hOLECULAR (.(JwlRieuTU'MS TO fHE ABSORPTION COEFF ARE 
INCLODEO, so T»FY ARF NOT INCLliDEO 

C 

RAD 

XNOC 

WFir.Hl factor to FE APPLIED lO T"f CONIRIBUTION OF A LlNf. 
TO ACCOUNT FOR TH» CONTRlHUl IONS OF OTHER, LINFS r.ITh 
IDENTICAL PROPtMlES, wHJCH aRF ALSO KlIHlN THE LINE GROUP 

C 

LINE 

XNN 

NUNDFR DENSITIES OF RADIATING SPECIES 

C 

LINE 

XOM 

CONTRIBUTION TO THE ABSORPTION cntPUClENT FROM 0- 

L 

MU 

XOT 

LCCAUY defined VARIABLE 

L 

5L0P0 

XOTT 

LOCALLY DEFINED VARIABLE 

L 

SLOPO 

XP 

NUHfeFR OnESITY OF AHSOPwiNC 1 tVFL OF LINE TRANSITION 

L 

MULE2 

XQ 

electronic partition f UNCTION 

t 

AH 

XTO 

LOCALLY DEFINED VARlAiUE 

L 

SIOPQ 

XTT 

LOCALLY OEFlMtO VARIAKE 

L 

SLOPU 

XX 

H*NU/KT 

L 

MU 

XXN 

number CENSniES OF RADIATING SPECIES (DUPLICATE MEANING) 

C 

LINE 

Y 

NOT ACTIVE 

r 

r.QPCOM 

YC 

INITIAL VALUE OF Y(J) 

L 

INPUT 

YiNT 

ALOG(VINT) 

L 

INPUT 

Y8 

LOCALLY defined VARIABLE 

L 

8L0PQ 

YW 

NOT ACTIVE 

C 

EOPCOM 

YY 

VALUES OF Y/Dtl.TA POINTS 

C 

RAD 

1 

charge on the re:s)oual ium^eroh input 

C 

CONTM 

22 

2*2 

t 

NU 
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I 

I 


SUBROUTINE C0NTN2 

COMNON/CONTM/ZZAZ(9lO)»IZZ 

CnMMON/EQPCurt/SPZZ(281)» I5DUM»SPZZ(70)»P0UM»SPZ3(<*80)»TDUM# 

1 SPZ'4(208)f VN(6C)»VNU(60»8) 

COHMON/lNTCOM/KR(20)#KOnO)»KFUO) »M,N 

COMMON/LINt/HVl.:20O).Kl.KZ,TWCH(?S),TLCPC25), NXI,XA(9) RAOINO 

l,Nl»yNOt.{200)»&UP(200) »f XPN(200) ,XftlcO)»MUGrlNDSHL(J2) 
2,S(200)fSi(200),S2(25) 

CO?1M13M/NONCOH/AM(12J» 123) 

CON^'ON/OUTCOM/UOEX(3) 

CO.WVRAD/AHV(SO), AHVL(25), Cl, C2,C5,C(I,C5, DELTA, EPS(160),PPC2P0)» RAO 

iFHtf (2S) .FHVC(SO) »FHVM(25) ,FHVP(25>) ,FINI t25),r IPI (2B) ,FLI ,ri2,FLG, RAO 
rr!!SlfGiMp!rOO),r,tUl65^ NAES,NBLP,NOC200),NIC,N1CN(2 RAO 

35) ,NIHVC,NHV,NU(25) ,NY,PRrS(20) ,TEt (20) , WOK2S) , XHUL, 

A Y0ELT,YY(20),CASEn5),THSw(50),T^“^fil.(25) jTN,T03 , 

5MRA0,RPACTfP0P 

dimension FM»(2e>),TAu(20),BFE(20),EM(20),EP(20),FIM(20),FIPC20),FIRAOCL02 

lMO(20),FIPUt20),mP(20),FIJP(20),DYno) 

OlHENSION OUTC ( 123, 1),0UTL( 123,1) 

DIMENSION HPA0(6) 

iD*'^''^^I° 08L(123,1) , 0AU?3,1) , OhDUp,!) » » 

» nIM( 1?3,1J , AT(123,1) , WD(123,1) , GAM(l2i,l) , 

i 0LXQC12i,l) , AFT(123,1) , ABE(l2i,l) » ' 

A SL(123;1) , BRG(12i,l) , AIG(123,l) , ATT(123,1) , 

5 TCN(123,i) , A1N(123,1) , AC(123,l) , AMT(123,1) , 

A XNN(123,1) , XO(123,l) 


EQUIVALENCE (OA(1),AH(IOA)) , (OHD(l),AM(2461)) , 

i AB(1) AM(26«7)) , (NlH(t),AM(492l)) , ( AT ( 1 ) , AM(«941 ) } , 

3 (WD(l)f AM(/<961) ) $ (GAM( 1 ) # ) ) 9 (OLXQ ( I ) r AM(500 1 ) ) f 

5 (!?T(l)*AMr502J)) , (ABE(1),AM(5270)) , (8FT(1),AM(73B1)), 

5 (8L ( 1 ) , AM(7401) ) , (DRGC 1 ) , AM(7A6l ) ) , (AIG(l),AM(8671)) , 

6 (ATT(l),AM(B69l)) , ( TCN ( I ) , AM ( 1 0 1 A7 ) ) , ( AIN (1 ) , AH( 12670) ) , 

? (tc(l!;AH(i26l5)) ;(iMTCn.AMU2630)) , (XNN(l) ,AM(996a) ) , 

a (XQ(1)«AM(10004)) 

? ;COUTC(l),AM(5021)),COUTL(l),AM(9512)) 

tOUlVALENCE CFMUH ) , AM(7o?U ) , (TAU( 1 ) , AM(75A4) ) , (BEE ( 1) , AM^^^ 

1 ,(Eh{l),AM(7790)),(EP(l),*»M(7913)),(FlM(l),AM(80i6)), 

2 (F1P(1),AM(8159)),(HM0(1 ), AH (8282) ) , (FIPO(1),*M(B405) ) 

EQUIVALENCE (f IlM(l ) ,FIMI ( 1) ) , (F11P( 1) ,F1P1 ( I ) ) 

EQUIVALENCE tOYCl),EM(l)) 

data HEAD/6H HV ,6HLAMDA ,6H (EV) ,6H (MU) ,3H EV,3M 1U/ 


PA8B BtAIW 


NTVP TiTFir^ 


100 fORMAT(OM0^^1U,/,^S£^0.^)) 

101 f 0RMAT(aH0l!,/, Cjt«>0,6)) 

102 FORMAT (aH0UU,/, Cbt20, 6)) 

103 FUfJ»AT(//l>:,ttHHV= »Kia,6) 

106 FORMAT (2X,F10,:S, 131R.^> 

109 FORMAT (2X,FIO,3»OX, 13F.9,2) 

110 FORMAT (2X,HO,3»6(fclO,2» F9,2)) 

111 FURMATdHWOlXiUiHCnNTINUUM CONTRIBUTION TO THF. SPECTRAL FLUX,/, CONTN08 

l»bfrX,6HY/0hLTA= to, 2) CO 

112 FORMAT(lHO»*t»»3X» f>HIMiNUS#hX» 16HPARTIAL SPtCTRAL»9X» 

1 ITHNORMALIZtP lMlNliS,3X,‘4HlPl.USffeX, 16HPAHTIAU SPtCTRALfiXf CONTN09 

216MNORMALlZtO JPLUS»/»1M rA<.,UH (^W,TTS/CM2f 3X, 

316HINTEGHAI. OF lMlNUa,i*X , l ^HCONTRIHUT IUN» 3X, l OH ( hATTS/CH2» 3X, 

917H1NTLGRAL OF 1RUJS,SX, 12MCONTRIHUTION, / , 9X , ilHSTfc' R» A3, IH) , «Xr 
516H(HATTS/CH2-STCRJ ,GX,lbH(PtRCtNT TOTAL) ,3X,flHSTER» A3, 1H),9X, 
6;6H(*iATTS/CH2-3TtR),SX,l‘4h (PERCENT TOTAL)) 

113 F()RPAT(F6,9, fcl0,3, tl6,3, t21,3, fcl0,3, tl7,3, £20,3) CONT 

119 rORMATClHO, A0,3X,6HQHINUS,fcX, 16HPARTIAL SPECTRAL, aX, CONTN09 

117HNORMALI2ED OHlNU-S,3X,5HUPLUS,6X, 16HPAHT1AL SPtCTHAL,3X, CONTN09 

2i6HNURMALlZLD UPLUS,/,1H ,Ab, 9H (KATTS/',bX, 

318HINTEGHAL OF 0H1NUS,6X, 12HCONTH1»UT10N,OX,7H(WATTS/,5X, CONTNIO 

917HINTEGHAL OF (JPLUS,!iX» 12HCONTRIBllTION»/, lOX, 3HCM2, A3, IH) ,?X, 
511H(KATT3/CM2) ,aX, i'jH( PERCE NT TOTAl.)»9X,3HCM2, Ai, IH) ,7X, 
61lH(WATTS/C**2),7X,\:H(rERCI NT TOTAL)) 

125 FORMAT(1H1,«JV,06HCONTI»jUUM CONTRIBUTION TO THE SPF-CTHAL INTENSI TYRAOCL035 

1, ///,1X,11HN0RHAL12ED ,/1X,12«P*TH LENGTHs,E 13, 3,5tl9,3) HADCL036 

225 FORMATdX,/, 5X,2HKV, RADCL03/ 

251X, 12HIMTNllS/IPLUS,/,aX,9H(EV),l|7X,19H( WATTS /CH2-EV-5TER) RADCL038 

2, /»12X,113HI— — — — — — ..1— — — y—HAPCU039 

, ) RAOCL090 

126 MlRMAT(lKl,fllX,<jaHcnNTI»Ull.)y. CONTRIBUTION TO THE SPECTRAL INTENSITYR Al>CL0« I 

I,///, IX, UH*I»J'’'‘AL!ZE0 f/lX,l2MPATH LFNGThs, JX, 13E9,2) RADCL092 

226 FOHHATdX,/, 5X,2HHV, RAOCL093 

251X, 12H1M1NUS/IPLU3,/,0X, OH (tV),U7X, 19H( WAT TS/CM2-E VASTER ) ,/) RAOCL0«9 

130 FORHAT(//,51X,27HFREQUtNCY INTtGRATEP VALUES, // , 1 2X, 6 (E 1 0, 2, £9,2 

l3lVoRMAT {//,SlX,27HrRCOUENCY INTEGRATED VALUES, //, 12X, 13E9.2) RADCLO 

132 FCRMAT C16X, 13E9.2) 

135 FORBATdHl ,fllX,H3HCE'NTINUUU CONTRIBUTION TO THE SPECTRAL FLUX RADCL046 

l,///,lX,llHNORMAHZtO ,/lX,l2HPATH LENCTHs,E13,3,5tl9,3) RAOCL0U9 

235 FORHAT(lX,/, 5A,2HHV, RADCL050 

251X,12M0HlNUS/0PLUS,/,9X,0H(EV),a9X,l«H(MATTS/CH2'*EV) RAOCLCbl 

1S6 FU«HAtdH|#«IX,93HCONTlNUUH CONTRIBUTION TO THE SPECTRAL FlUX RAOCL0S4 

l,///#IX,llHNORMALlZED ,/lX»l2HHATH LENGTH*, IX, 13t9,2) . RAOCL055 

236 FORHATC IX,/, 5X,2MHV, RAOCL056 

25lX,l2H0MINUS/0PLUS,/,9X,«H(EV),<|9X,19H(WATTS/CH2-EV>,/) RADCL057 

1225 FORMATdX,/, SX,2HWL, RADCL058 

25lX,12HIHlNUS/IPLUS,/,l|X,aH( A) ,97X, 19H(NATTS/CM2- A*STER) RADCL059 

1226 FORMATdX,/, 5X,2HWU, RADCL062 

251X,12H1M|NUS/1PLU3,/,9X,9H( A) ,(I7X, l9H(WATTS/CM2w AwSTER),/) RAOCL063 

1235 FORMATdX,/, 5X,2HML, RA0CL069 

2S1X,12H0H1NUS/QPLUS,/,9X,«M( A),fl9X,l4H(NATTS/CM2- A) HAOCL06S 

I"— ——I ,) KAOCL067 

1236 FORMAT! IX,/, 5X,2HHL, RAOCL068 

25lX,|2HQMlNU3/QPLUS,/,aX,9H( A),a9X,l9HtWATT3/CM2- A),/) RAOCL069 

1333 FORMAT (2X,1H ) 

1334 FORMAT! 1P11E12,5> 

5110 FORMATdHlJoixlRBHCONTlNUUM CONTRIOUTION TO THE SPECTRAL INTCNSITYCONTN08 
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1,/,‘j(.X,8HY/0EUTAs L9.2) 

5125 FOR»Al{iHlf/2X,27»'E;XTtNSIVt CONTINUUM OUTPUT*) 
ISO s ISOUM 
ISP s ISO ♦ I 
1SP2 s ISO ♦ 2 
NLG = K.G + ,00001 
'iUGl = UGl ♦ ,00001 
LOEXin^NlCNO) 

LOEX(5)=NICN(U 
IF(Kk(t9),Nt.2) Aif=i, 

POP s 8,61705t'C'U 
IF(KIU17).EQ,2) cn TO 7ft 
lF(Nt(;,l 0,1) GO TO S7?ft 
DO 120 LL=1,NIC 
lY 5 NICNCUU 
120 S(LL) = YY(IV) 

IF (K«(U) 80,81,80 

81 lF(NIC,GT,fc) GO TO 75 

WRITE (N,125) (5aL),Ll.= l,NlC) 

IF(KR(8)) M,31,J0 

31 WRITE(N,225) 

GO TO 76 

30 WR;TE(n,1225) 

CO TO 76 

75 WRITE (N,126) (3(LL) ,Lu=l»NIC) 

IF(KR(8)) 32,32,33 

32 HR1TE(N,226) 

CO TO 7fc 

33 WRITE(N,l22ft) 

GO TO 76 

80 IF (NIf.GT.h) no TO BS 

WRITE IN, 135) (CClD,L!.-i,MC) 

IFlWRCS)) 3«,39,35 

3« WR1TE(N,235) 

GO TO 76 

35 WRlTt(N,l235) 

CO TO 76 

85 WRITE (N,136) (S(U) ,11*1 , NIC) 

1F(KR(8)) 36,36,37 

36 WRITE(N,236) 

GO TO 76 . : 

3T WRlTtl N,1236) 

GO TO 7ft 

5776 WRI7f.(N,5l2S) 

■' 76 CONTINUE 

IF(KRHi^),NE,3) GO TO 779 
NYM s NY*l 
_ DO 780 Isl.NYM 

780 OV(I) a (YY(I*1) • YYtD) * C2 
779 CONTINUE 

00 1 LL*1,NIC 
FlIMILUaO, 

I FlIPILUsO, 

NYP B NY+1 
ISM a ISO-1 
00 3010 Ial,NY 
00 3010 JaljNYP 
" - AMT(IfJ) a 0, 

KK a J-NYP 
00 3010 JJM,ISM 
KK a KW ♦ NYP 

3010 AFTdfKK} a 0, 

C FAR WINGS OF HYDROGEN LINES 
IF(IZZ,NE,1) GO TO 785 
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KISI 

K2=MXi 

CALL lnll.^2(V,-3,^) 
7«5 CONlIf.UE; 


START PRIMARY LOOP 

on bO K = l,NU!VC 
CALL '■'u(FMVCLI'-),Kmij) 

iFcnz.Fif .n no TO /e6 
00 7G7 lsJ,NXl 
JsIA(l) 

lf(fHVC(K) ,GT« fMVP(J)) r-0 TO 767 
ir(FhVC(K) ,LT, rHvM(J)) GO TO 787 
GO TO 7H6 

787 Cn.MTlNUE 

CALL MULE2{TMVC(K),3,l) 

00 768 1=1, MY 

788 f MU(n=FMU(n+5l(I) 

786 COrniNUt 

BLEW K 0, 

BtLOB = 0, 

IKTw) aOO,«00,«10R 
<1108 T1 = TR * POP 

AO = FMVC(K) / Tl 
lF(AQ,GE,6S,)r-0 TO «00 
BEEW = S000,*» HVCIM**J/(EXP(A0)„1, J 
«00 IFLTUB) 800,600,8106 
6106 Tl = TOH*POP 

AQ s FMVCCK) / Tl 
IF (AO,tr ,8l>,) (.0 TO 600 
BEL015 = ‘>0‘»0,*FHVL(K)*o5/(t<P(AO)-l,) 
600 lF(Nl.r.l,E0,0> GO TO 625 
BEEV- 5 3,H16*»htW 
BEtCiO = 3,l6lc*r'EEnB 
625 Fir(NY) * 0, 

IKKtKS) ,GT,5) FIP(NY) » SEf.OB 
FlM(l) a AHVIK) « UEEW 
00 38 IsljNY 

FMUa) B FMU(l) ♦ l,e»30 

7l=TEE(I)*PQP 

BEECnsO, 

AO=FHVC(K)/Tl 
IF(AQ-B5,) 2,3,3 
3 VsEXP(-AG*80,) 

BEEdl a (50a0«*V*FHVC(K)**3)/S,539t + 3« 
IF(nEE(I),LT,l,E-*3a) OEE(I) * l.E*3<l 
ATT(l,l) a BEKI) * AQ 
ATTU,!) a 0, 

60 TO 38 
2 V a EXP(AO) 

VI B V • U 

BEE(n a 5060,*FHVC(K)**3/Vl 
ATTdil) a BEEd)/Vl*V*AQ 
IHNLGI) 16,38,16 
16 BEEd)a3,1416*B(;Un 

ATTCl,n a 3,l«l6 * ATT(l,l) 

38 CONTINUE 

S(l) a |,«AHV(K) • THSW(K) 

S(2) a AHVCK) 

IF(KR(5)«2) 2740,27<»0j27<»2 
2740 FlMd) a 3(2) * BEK*. 

GO TO 2741 

2742 FIMd) a 8(2} * BEE(d 
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lKKR(b)-6) 27<lt,27^3,27<lJ 
27fll HP(NY) s 0, 

5(3) =-l, 

GO TO 27b0 

27'13 nP(NY) = dE£(N¥) 

5(3) = 0, 

2750 CO!>|TINUc 

CALL TKAtMS3(NY,DY,Nll.»NICN,ALFfBLr.,FMU,3,Sl,S2,TAU»FlM,FIP) 
762 CONTINUE 

IKKR(6),F:0,0) CO TO 2755 
\ IPa)=l^^SW(K)*PlP(l)-.BtL(l)*a,-ThSlN(K)) 

2755 CONTINUE 

DO 300 l=l»NY 

IF(I,E6l,LO£Xn))OUTC(l,K)=F lP(I)*Pht(I ) 

IF(I,EO,l.Dt.X(,->)) omc(2,K) = FlP(l) ♦ BEt(l) 
irn,E0,LDEX(3)) 0'JTC(3/K) a FIM(I) ♦ BfcE(I) 

V s ATTHfl) 

DO 300 JslrlSP 
lOX = 8*(J»-1) ♦ I 
300 ATTd/J) s V * AIN(IDX,I) 

IF(K»(17),EQ,2) GO TO 69 
ir(NLC,EQ,l) GO TO 5289 
lF(KK(e)*I) 60ibl,60 
61 VI s 12400, /FHVC(K) 

DO 65 LLsljNIC 
IY=NICN(LL) 

5(LL)=(FIH(1Y)+BEE(IY))/V1*FHVC(K) 

65 Sl(LL)=(FIP(lY)+BfcE(lY))/Vl*FHVC(K) 

1F(N1C,GT,6) GO TO 68 

WRITE (N, 110) Vl,(S(LL)f5l(LL)»LU=l»NIC) 

GO TO 89 

68 W^dTL(N,l08) »/J, (SaL);LL = },-Mtc) 

WRITE(N,132) (SKLL), LL=1,N1C ) 

HRITE(N,1333) 

60 CONTINUE 

DO 95 UslfNIC 
IVsNlCNtLL) 

S(LL)sFIN(IY)+BFE(1Y) 

S1(LL)sFIP(1Y)6BEE(IY) 

IKKR(8),NE,2) go TO 9b 
sat) S FIH(IY) 

3HLL) s Fir(lY) 

95 CONTINUE 

IF (N1C.CT,6) GO TO 88 

WRITE (N,110) FHVC(K),( 3(LL)t SI (LL) (ULcl ,N1C ) 

GO TO 89 

88 WRITE (N, 1 Q 8 ) FHVC(K), ( S(LL)f LLal,NlC) 

WRZTE(N,132) ( 31 (LL) ,Ual,NlC) 

GO fu 89 

5289 NRITE(N,103) FHVC(K) 

WRITE(N,101) J8Et(I),Isl,NY) 

WRITE(N,l0O) (FHU(I),1 b1,NY) 

NR1TE(N,102) (TAU(l),Isl,NY) 

89 CONTINUE 
NYP s NY ♦ 1 

IF(K*1) 1326,1326,1327 

1326 VI s FH¥C{K+l) • FHVC(K) 

CO TO 1329 

1327 1F(K»NIHVC) 1328,1330,1330 
1330 VI ■ FHVC(F.) - FHVC(K»*l) 

CO TO 1329 

1328 VI ■ FHVC(K*l) « FHVCCK-l) 

1329 VlaVl/2, 

DO 'it LLB1,NY 
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o o o o 


5 J 

C 

C 

C 


l«70 


1519 

I 52 b 

50 


FirM(LL) = FIIM(LL) ♦ 
FIIP(IL) » FllP(LL) + 
FIMO(LL) = F1^»0(LL) + V 
HABLE PACKAGE 


V 1 *FIM(U) 

V 1 *F 1 P(LL) 

1 * 8 EE(LL) 


CC 3 s 1 . 

NYM s NY » 1 

C58 = ,8dO‘j*CC3/RFACT 

V3 s VI* C36 

VI = V3*C2 

lie = 0 

DO 1325 1=1, NY 
MPJ = 2 

DU 1970 J= 1 ,NYM 
MPJ = MPJ +1 

AM7a,MPJ) s AMT(I,MPJ) ♦ WIM(I,J)*V1 
MPJ = 0 

DO 1325 KK=1,IS0 
IF(KK,EQ,2) Cn TO 1325 
HPJsMPJ+1 
on 1319 J=1,NY 
MPJsMPJ+1 

VsDFT (1, J)*AIG(J,KK)*AT(I, J)*ATT(J,KK) 

AFT( 1 ,HPJ) c AFT(I,MPJ) ♦ V * V 5 

CONTINUE 

COMTlNiJF 

CONTINUE 


SUMMARY OUTPUT PACKAGE 


96 


1F(KH(17),EQ,2) GO TO 123 
V3S0, 

V9 = 0, 

IF(NLG,EO,l) GO TO 5123 
DO 96 LL = 1,NK 
1Y*NICN(LL) 

S(EL) = FI1M(1Y)+F1M0UY) 
SKLU s FI1P(IV)*F1M0(IY) 
1F(KR(8) ,NF.,2) GO TO 96 
SCLU = FIIH(IY) 

SKLU) = FI!P(IY) 

CONTINUE 
WRITE(N,1333) 

IF (N1C,GT,6) 



WRITE 

(N, 130 ) 


cn TO 

123 

122 

WRITE 

(N, 131 ) 

WRITE 

(N, 132 ) 


GO TO 

123 

5123 

lYaNIC 

:n(i) 


YDCLT 5 

:YY(IY) 


IFCNUG 1 ,NE, 0 ) 


WRITE(N, 5110 ) 


IMKR( 6 )) 920 


GO 

( 

C 

1 


TO 122 
StUU, 


S1(LU),UB1,NK) 


S(LL)»LL81«NIC) 

SKUU»LL=lfWIC) 


560 


920 

626 

060 

666 

561 


GO TO 
YOELT 
, 920,626 

WRITt{N, 112 ) HEA 0 (n,HEA 0 ( 3 ),HEAD( 5 ),HEA 0 ( 5 J 
60 TO 561 _ 

WRITE (N, 112 } MEAU( 2 },HEAD( 9 ),HEA 0 ( 6 ),HEAD( 6 ) 
GO TO 610 

WRnE(N,lin YOEUT 
1 F(KR(R)) 666 , 666,667 

WRITE(N, 11 «) HEAOU)*HEAO( 3 ),HCAO(S),HEAD( 5 } 
VsO, 
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VlsO, 

V2 = 0, 

DO (>2 I = JI,N1HVC 

Vl = Vl+(nUTC(l,n+V3)*V 

V2=V2+(DUTC(3,I)+Vq)*V 

V3-OUTf.(l,l) 

Vfl=nuTC(3,I) 

V=(FHVC(l + n-FHVC(n)/2, 

OOl = Vl/(FIlP(IYUF IMOCIY) ) 

Q02=V2/(mn(m+F IMCHIY)) 

62 WRITC;(N,lU)FHVC(n»UUTC(3,I),V2,Q02fQUTC(l,I),Vl*Q0i 
GO TO 123 

667 WRlTt(N,ll<0 HEAD( 2 ),HEAO(^n,Mt A0l6),HtAD(6) 

6 l 0 V= 0 , 

Vi SO, 

V2*C , 

V5=l,2^t/FHVC(NIHYC) 

DO 620 lsl,NlHVC 
IRnNlMVC-Hl 

S(IY)sOUTC(l,IR)/V'5*FHVC(lR) 

8l(IY)=OUTr(3,IR)/Vb*FHVLClR) 

VlsVl+(S(lY)4V5i*V 
V2=V2+(S1 (IY)+V6)*V 
V3SSUY) 

VRsSHlY) 

V6sl,262FHVC(IR«n 

Vs(v6-VH)/2, 

OQisVl/(FIIP(lY)'»F IrtlUlY)) 
oo2sv2/(r iiM(iY)+r TMn(iY) ) 

WR1TE(N,113)V5,S1 ( JY),V?,GQ2, S(IY)fVl,001 
620 V5SV6 
J23 CONTINUE 
RETURN 
END 


] 

i 



) 
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SUBPOOTlNE. OADIN' . • - { 

, ,!?liPPLltS THEPMOOYNAMIC »PA1H LtNGTH AND OTHER DATA I 

ItUEGCF? F AHOA^rAMOB . 

COHMON/CONTM/NCRC(20),N5BN,Z(20),HVr.(JO)»K8(EO),nS(l6)»NlL» 

1 HVT(30) ,CSS(2«0),IIU(30), 135(30) ,1UBN(20), 

2 x;iN(:40),BtTA(30),Bfc.Tfi(30),NSTl,NT,XlS(2^0),JIS(30), 

3 TTHRtS(30) »COEFA(30) »C0tFB(30) » IZ2 


tOMMON/lNTCOM/KR(2O)»KO(10)»KF(10)»M»N 

CL1M(iaH/UHF./HVL(200),Ki,h2»TUCMi2'j),TUCP(25)» NX1,IA(9) RADII 

l,Nl»XNOl(200),C;uP(200),tXPN(200),XK(20) 

COWON/RAO/«HV(50K«HVL<25),C1,C?,C3,C«,C|,I>EITA,EP5(1<.J),FF(S«»). 

< put/ Mm f Hvr #FHVM(?5) HVPl2b) # FIMI (25) f P IPI (25) rf I I # L2# RAD 

rF^SS:M;F(2U;!MFn"i5, . «.C3,WEP,m(j!00),»lC,NICN(2 RAO 

35)fNlHvC»NHV/fMU(2b)»NY»PRFS(20)rTEF. (20)» »(Ul. (2b) » XMU .» 
a YDtLT,YY(20),CASt(15),THSw(50),TMSWL(2b),TW,TOB i 

bNIUD,HFACT,POP 

CC1HHON/PKPCOM/SP1Z(20) ,KHO(20) 

COHHON/NOfifClM/'AM(123, 123) 

COMHQN/tOTr.OM/ZL'Gl (3),AA,ZU62(B53) t« DADI 

COHHCtN/tQPCOM/Fr.Cl(16U.lSCO(fcO),FSC2(2fl)ilSCl(l6)»lS, DADI 

1 1 SC2 ( /O ^ I P r P SC3 ( ^60 ) # T # FPSC3 ( 7B6) f 


NX1#IA(9) RADINO 


DADINOl 

RAC 

RAD 


/ZUGl (3)#AArZUGdl053) , 

/FTiCl (161) »1 SCO (fcO),FSC2(2«) 1 1301(16) » IS, OADINGt 

iSC^l/O.P.FSCil «60),T,FPSC3(7B6), , 

lSC3(«),FSCO,ISC«,FSCr>(lBl),lSP2,F AMOA(60),FAHOB(60)DADlN0i 

.ISP,NSPLC,FSC6(3),KIN,KOUT,KKP(20) 

tT(201.VM«((20).HH(20),SP(l,20,B) OADINOO 


3 ,ISP,NSPLC,FSC6(3),KIN,KOUT,KKP(20) 

COMMON /RADCOM/ TT(20),VMW(20)iHH(20),SP(1,20,B) 

1 ,thfta,svi,spi,sri,hs 

DiMENSiON FR(123,n 
FQlJlVAUCNCfc (FR(1),AM(«3)) 
lOO FORMAT (6E12, 1) 

102 fORMAT(ltl2,a) 

103 roRMAT(b!3) 

115 Ft)RMAT(2'»13) 

22b FORMAT (REIO, 3) 

226 F'0RMAT(6E12,«) 

227 FORMAT(lOIl,I10,bEiO,3) p- • Fnp REFLECTING WALLS****) 

625 FnPMAT(,/,«7H ****NlCN(l) MUST F.O,l FOR RtfLECTING walL» f 

flOlO F0RMAT(35H****FXTEN0 CONTINUUM FRkU RANGE****) 

«00<» FORMAT(30U,riAA) u»piA***i 

AiHAa cnuAii « F Ai<ul < IS? CANNOT BE USED HERE****) 


DADIN02 

OAD1N02 

DADIN02 

DADINOl 


625 FORMAT!, /,«7H ****NlCN(l) MUST to, I ruK n.ntNOa 

flOlO F0RMAT(35H****FXTBN0 CONTINUUM FRkO RANGE****) OADINOU 

«00<» FORMAT(30U,riAA) ussAa***! DAO1N02 

6008 F ORMAT(SSHA***Ktt(l J*2 CANNOT BE USED HERE****) 

7005 FORHAt{2Aa,2X,?ElO,2/(8ElOi2)) 

7006 FURMAT(2A6,2X,7E10,2) 

ISMlalS*! OAO1N06 

r*olMii**J2tniM***********-*********‘****‘**********“******‘*p^pjN06 

OADINOO 

uniform CONDITIONS DAOINOd 

A***************************"************************************* 

79 IF(KR(7)»i) 681,682,682 

681 READ(M,226) DELTA 

682 RFAD(M,226) DELTA, PRES(l),TEE(l),Sl.nPE»V 

IF'CKR(7),E0,2) RHO(l) B V 
663 REA0(M,226) TW,T0B 



READ MASS FRACTIONS OK BASE SPECIES 


DAD1N09 


C 

C 

C 

i 2 I 

C 

32 ^ 

TOO 

346 

340 


637 

636 

341 


5581 


62 

61 

C 


360 

365 


C 

C 

C 



365,321»3?2 
(SP(l,l#n,l = l#ISMn 


IF (KfU7)-»l) 

Ri.AD(H,225) 
on TO 340 

OR MOLE FRACTIONS OF RADIATING 8PFCIE8 

I!tAD(M,U5)MSpr.C 

DO 700 Jal»NSPEC 

RfA0(M,700fc) FAMOA(J),FAMnbCJ)fFR(.l,n 
IF(KQ(l)-2) 345,346,345 
wnnt(N, 40085 
STOP 

GO TO 341 

IF (KO(n.EQ,0) TT(n = l,fl*TfcF.(n 
IF(KQ(l) ,bO,2) HH(n-TtKl5 
lF(KR(S)f3) 636,637,637 
TW s Tfetd) 

TOW = TEE(NV) 

CONTIHUE 


IF(KR(2),tO,2) PHhSd) = P 
DO 81 I51,NY 
HHd) - HHd) 
PRES(l)=PHESd) 
TrE(l)aTEKi) 

RHO(I) = RHOd) 


DO 5581 Jsl,ISMl 
SPd,I,J) = SPd,l,J5 
If (KR(7) ,Nt ,2) r.O TO 61 
DO 62 vl = l,NSPEC 
FR(J,I)=FR(J,n 
COtJTlMl'!; 

CHECK FREOUcNCY GRID 

1F( KR(9),F.0,1) GO TO 365 

VI s FHVC(NIHVC)/d2,*8,62f -b) 

V2 « AHAXl(TW,TOB,TLCd)) 
IF(KOd),NE.,0)V2=AMAXl(Tw,TO»,TTd)/l,6) 
IF(V1-V2) 360,365,365 
WRITE(N,4010) 

STOP 

CONTINUE 


DAD1N09 

DADIN09 

DAOIN09 


OA01N09 

DADIN09 

DADINIO 

OADINIO 

DADINIO 


DADINIO 

DADINll 

DAOIN04 


DAD1N05 

DA0IN05 

DADINll 

DADINll 


DADINll 

OADlNd 

DADINll 


3TANOOFF DISTANCE CALCULATION 


C4 « KR(13) 

1F(KR(13),CT,2) KR(13)sKR(l3) • 3 

IF(KRd3),EO,0) GO TO 86 DADINll 

SDR 8 8Rl/P*T/VMWd)*l,3146 OAOINU 

IF(AB8(3LOPt),LT, l,t"8) SLOPtal ,/d ,+SQRT(8,/3,*80R) ) 

DELTA s SDR*SL0PE*DELTA 

IF(KRd3),tO,2) delta s 30,48*DELTA 0AD1N12 

GO TO 86 DADIN05 


NONUNIFORM CONDITIONS INPUT 

**«**ft*A<L '««***** A A** *«***« *«*«*«*«** 

INPUT delta 
REAO(M,I02) DELTA 
READ PRESSURES 
1F(KR(7),EG,0) GO TO 689. 


QADIN05 

DADIN05 

DAOIN05 

*«** AAA A********** ****** A** 

DADINOS 

DADINOS 

DAD1N06 

DADIN06 

DADIN06 

0AD1N06 


139 


r> o o o o 


c 

c 

c 


c 

c 

c 

c 


c 

c 


HEAO(Hf S26) 

READ TEf^.PEATURE 


DA01N06 

OAOU'Ofe 

DAD1N06 


READ(M»22t'MTEt(:),I = lfNY) 
lF(KR(7),K'r-,2,CJR,KR(13),LE, 
RhADCM,226) (RHO( I) f 1=1 »NY) 
689 CC1NT1MJE 

RLA()(M,226) TR»TUB 


2) 


GO TO 669 


READ mass fractions OF BASE SPECIES 


1F( KR(7)-n B6,b2l,S22 
521 OD 325 1=1, NY 

325 REAP(M,225) (Sp ( I , I , J) , J = l , l«iM 1 ) 


GO TO 590 

522 READIi-lrllS) NSPEC 
DO 710 J=l, NSPEC 

710 REA0(M,70O5) F AMOA ( J ) , FAMOB ( J) , (FR ( J, 1 ) , 1=1 »NY) 
1F(KQ(1)*2) 595,596,505 
596 KR1TE(N,900B) 

STOP 

595 GO TO 591 


DADIN06 


DADIN12 

DADIN06 

DADIN12 

DADIN12 

DADIN12 

DAD1N12 

PADIN12 

DADIN13 


DA0IN13 

DA0IN13 

DA0IN13 

DA01N13 

DA01N13 


590 CONTINUE 

591 1F(KR(5) * 3) 636,639,639 
639 TW s TEE(l) 

TOo a TEc(Ny) 

638 CONTINUE *********♦*„**,***********»«***. a************* 


DaDINIO 


C 

C 


END OF DATA CHECK 

A<»***A*A**** ****** *******A***«*«***AA***AA*A***A*********^* 

IF C9*0t AN additional CASE FOLLOWS 
86 REA0(M,226) C9 

IF(NICN(1J.EQ,1,0R,KR{5),LT,2) GO TO 690 
WRITE(N,625) 

STOP 

690 CONTINUE 


RETURN 

SiND 


******* 

DA0IN07 

OA0IN07 

DAD1N07 


DAI/IN07 

DADINll 

DA0IN19 

0ADIN19 


i40 


c 


SUDHOUTlNf. E:Olia{Kft,lND»PR) 
IHTEGLR FAMOA,FAMOt} 


C 


c 


c 

c 


c 

c 

e 

c 

c 


COMHOM /RAOCOM/ TT(20),V«W(20)»HH(20)»SPC»20»e) 

I , THETA, 3V1,SPI, SRI, HS 


COMMON /tOPCOn/ 

1 

2 

3 

H 

5 


RH(tO,2),rr((>0),FF A,IfC(60),ATA(6},ATB(8),MAT(tt}, 
KAT(S),IR{0), 1S,KH(10),LAHH60),P,RC(60,2), 
RD(».0,2),Rt{60,2?,RF (60, 21 , T,TK(fl,8) , TQ(8,8) , 
TU(60,2),PH(60) ,VNO(60,8),L2,L3,ITrr,KR?,HCH,NCV, 
WH,WTM(60) ,Y(60),Vw(60),lSP2,FAMnA(60),FAM08(60), 
1SP,N,W(3),K1N,KUUT,KKR(20),ATC(8),GG(60) 


COMMON /EOTCOM/ 

1 

2 

3 

4 

5 

6 
7 


SIP,HIP,E|.,tNl ,FL10,CPR,1RE,IER,PM,I1S,IN,IL,IT, 
M:ii,l.,HMtl.T,ri»'.El.Y,TMAX,TMTN,i4tLT,SUMN,SUML,I8(9), 
tl-(fi),F8L(C),A(lii,m),BU«),I«(60),ALP(R),ENU(6), 
GAMH(B),GAMF (6),JC,hG,SLAM(8),CPr.,OY(60),CP(60), 
Hl(<>0),SB(60),TC(60),Vl.NK(60),F(60),TTMIN,TTHAX, 
PNlir>(8),*S,<«SS,I.SPO,BC(M),ULNK(A),BY(e),IHC(8), 
0l,KKJ,SVA,SVa,SVr.,SV0,5'JMC,FFF,RV,CHF,CP,IFCJC, 
NlG,»I.LrJJ(0),I!£(8),LE;F(b} 


C0MM0N/NDNC0M/AM( 123, 123) 


COMHOU/SAVE/IOPT»PO 
DIMENSION KQ(i) 

OIMENSJON 0XY(123,1) ,FR(125,1) 

DIMENSION OUCPK60) 

DIMENSION RHS(32), PLP(30i, PPTC(lO), 

1 HOS(50), 

2 XC30), 

dimension FKXX(A,8,6),FK0X(8,6),HRACE(8,H), CPF(60), 

I TAU<30),CPP(50),DCP(30),PTAU(30),PC(30),PH(3Q),PTH(30) 
dimension HTM(32) 

EOOIVAUtNCE tN5PEC,N), (CP(l),CPF(l)), (PUP(l),Ym), 

1 (PPTCn),yM(l)), (HOS(l),CG(m,(X(l},V(.NK(l)), 

2 (TAUn),OY(l)) 

EOUI valence (RHS(n,AH(l)),(CPP(l),AMll24)),(DCP(l),AM(2l|7)), 

1 (PTA0(1),A>1(370)),(PC(1),AM(493)),(PH(1),AM(616)), 

2 (P7H(l),AH(739n,(HTM(l),AM(e62)),(OXY(l),AM(l«77)), 

3 (rR(l),AH(<|3: ), (FKXX(l),AM(2«6l)),(FKDX(I),AM(3076)), 

4 (BRACL(i),AM(3198)),(DLCPF(l),AH(3321)) 

200 FORMAT(11,E9,4,4E10,4) 

201 F0RMAT(4HI P:tl2,a,10X,2HSsE12,4,10X4HVKTsiE12,4) 

202 fORMAT(4Hl PsE12,a,10X,2HHstl2,4,l0X4HVKTs3E12,4) 

203 F0RHAT(I2,7E14,5) 

204 FORMAT(6E9.6,6XFb.O) 

246 F0RHAT(//5X,14HDATA DECK HAS ,I3,20H SPECIEScLlHlT 13 40,//) 

246 FORMAT(//SX14HDATA DECK HAS ,!3,21H ELEMENTS, LIMIT IS 6//) 

THIS CODE COMES TO YOU COUKTESY OF AEKUTHERH, , ,NEN»RMK|M6 

THIS VERSION can CONSIDER 40 SPECIES 


IFCIOPT,NE,0) CO TO 99 
POST, 

IF(NSPEC,LE,40) GO TO 244 

NR1TE(N,246)NSPEC 

STOP 

204 CONTINUE 

1F(IS.LE,6) go to 249 
NRITE(N,248) IS 
STOP 


DADI 


EOUILOO 

EOUILOO 

EOUILOO 

EQUILOl 

EQUILOI 

EOUIUOI 

EOUIuOl 

EOUlLOl 

EQUILOl 

EOUILO: 

EQUILOl 

EOUILOl 

EQU1L02 

EOUIL02 
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I 


^49 


99 


COMTlnuh 

00 2 ir.J,NSPEC 

VsKSPtC 

PP(l) » PR/V 

HLP(l) = Al.OC(PP(l)) 

00 2 Jsl *2 

RF( 1 #J)=KF'. 1 »J)/ 1,9669 

CONTINUE 

lOPT = 2 

CONTINUE 


300 


HOOE^KOd) 
1SP2 = IS+2 
ISPS = 

NSP2 s 
ISHl s 
HTH(l) 
HTM(2) 

DO 300 


IS « 3 
NSPEC ♦ 
IS " I 
s 1,8 
s 1,0 
I=1»1S 


&00 


AUPHI(I) s SP(I»IKD»I)/NTm(I) 
ISH2 s IS-2 

ALPHKI5H1) s i, 

90 600 1*1*1882. 


90 600 I*1*I58< ^ 

AtPHl(lSMl) s AtPHI(lSMl)-SP(l*INO*I) 
ALPHinS''U=Al.PHinr>»‘.n/KTM(lSMl) 

IF(KQCb),NF,l) RCi TO 9675 
5AISTHETA/57, 29577 

SVAB(l^3l96*SRl*SVl*COS(SAl))*»2/90106, 

SVBsSVA*2,/l,9869 
SyCs(SVl^COS(SAl) ) **2/90 108, ♦SMI 
SviisaPl*j»V6/ii,3i*it>*SRii 

4675 CONTINUE 
PsPR 

HbHH(IND)/U8 
T* TT(IN0V1,8 
TSAVEsT 
MM B VHM(INO) 

PLNb ALOG(P) 

PTEST«P*tEXP(*0,J) 

POs AUOr. (P/PO) 

12 = ISP2 
00 3 islfNSPEC 
HTH(H2) s KTlim 
PtP(I) » *30, 

1F(FR(I»IN0)) 22*22*25 
Pl.P(X) s AU0C(FR(1*IND)) 

CONTINUE 

PP(I)s EXP (PEP U)) 
rONTINl’" 

PO»P 
pmbmnap 

ITEPal 
CONTINUE 


23 

22 


♦PO 


30 


CPGbO, 

VA>AEOG(T/3000,)/I,»»60 


VbBT«3000, 
VC»(T«3000,)/2, 
VDsT*3000« 

VEBVC/(VO*VO) 

VPbVB/1,9869 

HTbI« 9869 *T 

TSQbTbT 

SUHPbO, 


1«2 








30; 


620 


«|2 


006 


ooa 


410 


304 


DO I IslfNSPtC 
Js2 

lF(T,LT,TU(I»n) Jsl 

CPM1>sRC(1#J) + T*RO(I,J^*^EC1»J)/TSO 

OLCPF ( I ) = n 1 » J ) "2 . ; 0 5 , I ' 

HI (1)sPB(I»<J)+''B*CRC{I» J) + ROn » JJ^VC + HECIi 

S6(I)sRKI»J)+«ca»J)*VA>VF*(RDnf J)+HE(I| 
CPGsCPG ♦ PP (1)*CPF(I) 

SUHPsSUHP+PPU) 

TC(I)=-MH1)/HI 
EdlsTCCn + Sbd) 

COMTINUE 

DO 302 IsISP,HSPEC 
DO 302 J=1#1S 

TC(l) a TC(I) VN1JC1»J) * TC(J) 

Ed) = td)-VNU(l»J) * t(J) 

SUMSsO, 

SII1H=0, 

IFIHODE ,Nt,0) GU TO «i2 
SUHTsO, 

DO 620 ! = l»HSPt.C 
HOSd) s t«TM(I)*PP(n 
sum = SUMT + HOSd) 

VsT/TSAVr.*PH 
RHS(l) a V-SU!1T 
Ad»n = -V 

Ad, 2) = -V 
60 TO 6 
CONTINUE 

IF (NODE ,Nt,3) GO TO 4 
DO 5 IsdNSPCC 
H05(I)sSDd)*P‘’(!)-»PPd 5 
SUHSsSUNS «HUSd) 

CONTINUE 

A(l,l)aCPr./l,«»669 

A(l,2)s-PM*S 

FHS ( 1 )aPM*S»SUHS«SUHP 

CO TO 6 

DO 7 ladNSPEC 
H03d)aHl(n*PP(I) 

SUMHsSUHHfHOSd) 

CONTINUE 

lF(KO(5)*l)406,fl08,406 
Ad,2)**PH*M 
A(l,l)aCPC*T 
RH8(l)af*H*H*8UHH 
RMS<2)«MSUHP 
CO TO 4l0 
P«8UHP 

A(l,2)a*PH*8VC*8yAATSO/PH 
A(l,l)«CPCATt2,*SVA«TS0/PM 
RHSd ) sPH*8VC"SUMH»8VA A T 80/PH 

RHS(2)sSVO»SUMP»5V6aT/PN 
CONTINUE 
DO 304 1*1,18 

PM * ALPHXd) • PPtl) 

JcISPfNSPEC 

Ed) - VNU<JiI) * PPCJ) 


Ed) • 
DO 304 
Ed) « 
icons! 
TEST * 
DO 305 


ABSIFCISn 

V 8 PHAAUPHId) *,0001 
VI s 1,E«10 

V 3 AMAXI(V,V1) 


J)/VD) 

J)*VE)^PLP(I) 




30b 


lo 


Q16 

10 


8 


31b 


314 

3ia 

803 


9 


30b 

518 


31 


32 

33 


lF(ABS(Cm)-V)305,30b,lO 
U.ST s Tt3T ♦ *BS(EU)) 

DO lb lalSP»^^S^’fcC 

Jr (iUSltlDj-.COl) lb/lb,lO 

tONTlNUt 

ir( iiODi;,Ee,o) r.o to aib 

IF (A8S(RHS(I)*T/A(l,l)),GT, 0,1) CD TO 10 
IF (AHS(f.H3(2))/P,GT, 0,00001) C.() TO 10 
IF(TtST/PM ,01, ,00001) GO TO 10 
1F(ABS(E(1S))/AMAXI(PP(15)»ABS(AUPHI(IS))) ,CT, 
ICON s 0 
Af2,l)s0, 

IF(K0(5),EQ,1) A(2,1)=SVH*T/PM 
DO b I=lSP,HSPfcC 
A{l,l)=A(l,l)-HnS(I)»TC(l) 

PPTC(I)=PP(l)*TCn) 

A(2,l)aA(?,l)-PPTClI) 

CONTINUE 
AC2f2) s 0. 

IF{K0(5),E6,1) A(2,2)s.SVB*T/PM 
DO 312 Is3,lSP2 
A(I,1) = 0. 

A(l,2) = -PM*AUPMl(l-2) 

AClfl) = HOS(l-2) 

A(2,I) » PP(I-2) 

DO 3lb Ks3,lSP2 
A(I,K) s 0. 

A(I,1) s PP(I-2) 

DO 514 Js1SP,NSPFC 

A(l,n s A(1,1)-VNU(J,I-2)*PPTC(J) 

A'1,1) * A(l,l) 4 VNuC.I,i''2) * HoS(J) 

A(2,l) s AUM) ♦ VNU(J,l-2) * PP(J> 

DO 314 As3,lSP2 

A(I,K) s A(I,0 4 VNUlJ»l-2)4VNU(J,K-2) * PP(J) 
CONTINUE 

Fn«l4AT(2X,8El!|,b) 

DO 9 IslSP,NSPFC 
KHS(l)sRHS(l)»HnS(I)«E(I) 

PP1C(I)spp(I)*E(l) 

RH8(2)sRHSC2)-PPTClD 
CONTINUE 
DO 30b 1 b 3,1SP2 
RHS(I) s E(I-2) 

DO 30b JslSPiNUPEC 

RHS(I) ■ RHSm VNU(J#I-2) • PPTC(J) 

DO 318 jsl,ISP2 
A(I,ISP3) » RHS(l) 

JPsl 

DO 32 1st, 12 
OUMsA(Irl) 

A(I,l)sl, 

IP5141 
JPSJP4-ICON 
DO 31 JSJP,ISP3 
A(1,J)sA(1,J)/0UM 
1F(IP,GT,I2)G0 TO 33 
DO 3’ KSIP,12 
OUH* {K,IJ 
A(K,l)a0, 

00 32 jsjp,lSP3 

A(K, J)sA(K,U)<^OUH*AaiJ) 

tP(lcnN,EQ.01 CO TO 3b 

ipBiaps 

DO 35 lsl,I3P 


0,00001) GO TO 10 
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! 

! 

I 

I 

{ 

i 


f 


I 

i 








IPslP-l 
on 3b JslP,12 

3b A(1P*.1,1SF3) = A(IP-1,ISP3) « A<1P*1»J) * A(J,ISP3) 

CO TO 30 

36 00 37 1=1, ISP 
00 37J=l,I 
DUM=A(J,1+J) 

A(J,I + n= 0 . 

on 3? L=1,1SP3 ; 

37 A(J,L) = A(J,L)-»0UM*A(I + 1,L) | 

38 CONU'.’Ut 

00 520 I=1,ISP2 
320 RHS(I) = A(1,!SP3) 

DO 508 l=ISPi,KSP2 

RHS(l) s » TC(l-2) * KHS(l) 

00 300 J»3,IS*’2 

308 RHS(I) = RHStl' ♦ VNU(!«2,J*2) * RHS(J) 

DAHP=l, 

00 lb 1=1,NPPEC 
DDMs PLP(I)-PLN 
IF( RM8(1*2)) 20,15,18 

18 OUMs(II,*0,*D11m)/13,-OOM) 

GO TO 13 

20 DUM5(3,*Dl)M-q,)/(a,+D0M) 

IF(PUH) 13,15,15 

13 CONTIMUt i 

19 DAMP=AMIN1(DAKP, (0U«-00M)/RH3{I*2)) | 

15 CONTINUE - j 

OAMPsAMINl (DAKP,0,U/AHAX1 (AnS(RHS(l)),ABS(RHS(2)),,4)) t 

IF (OAMP GU TO 21 -j 

on 2 / i=i,N.srv ! 

27 RHS(n=OAKP*RHb(n . .. - . I 

21 00 26 Isl,NSPtC ' ! 

PLP(i)= PLPtn+uHsn*?) i 

PP(I)=EXP (PLPU)) 

28 CONTINUE 
T=T/(1,*RHS(1)) 
pMspM*RHS(2)*PM 

ITERslTERtl - " 

JF(ITtR,U7.50) GO TO 66A2 t 

WRITE(b,660O) ! 

6680 F0RHAT(//5X,2enCHtMl8TRY FAILED TO CONVERGE//} , j 

WRITE (6, 6661 )lND,HHaN0),PK,SP(i,lN0,i),SP(V,lND*2},SP(l,lN0,?}, j 

1 SP(l,IN0,a) i 

6661 F0RHAT(1X,15H1,H,P,K1,K2,,,,,2X,I3,2X,6E12|3} j 

STOP 

6ti42 CONTINUE j 

IF (ICON.CT.O) GO TO 30 C i 

ALF=A(2,n/A(l,n : 

CPEsI»9869/CA(l,l)*PH) 

|F(IOPT,EO,2) CPE=CPE/RT 

WMsPM/P i 

VHH(IND) s NN I . 

TT(INO) * l,8*T 1 

RHOePM/T/82,057 . ^ ' 

8«0, j 

H«0, ! 

00 17 1s1,nSPEC i 

S«S*SB(I}*PPm I 

HsH4PPm*HlU) ; : 

x(i)Bppm/p 
F«(I,2ND) 8 X(I) 

17 CONTINUE . 

HWH/PM 




sss/r« 

SsS*l ,<>869 

lF(KU(5),EQ,n r.O TO 52 
ir( MnoE»NE,?J GO TO 52 
TO 53 

52 *'-h(IND) s 1,8*H 

- 53 . 

- ' }>{MUoe,t:o,2) GO TO a26 

Moot, s 2 

.. GO TO 30 
- «?6 COhiTlNljt 

/F(KQ(71,E8,9) go to 3650 
C 

c 

r 1502 KRlTE(KOgT» 82 )T,P,mm EQU1L37 

WR1TE(KOUT,«8)h,S,Rho 

WRlTEfKfUJT,2032HFAMn4(n,FAMOB(I), Xri),I»l,NSPEC) 

2052 FOHHAT(/3(5x 7HSPEC1ES3)(6HHOLE F«,2X)/(5X2A<I,£12,5,5X2A<I,E|2,5,SX2AE0UIL91 
lfl,E12,5)) EOUIL91 

H?. format (/9x5HTrM?s,F12,8,l7H OEC-K PRF.3 »F9,J,17H ATM MOU WEQU1L05 
IT sFn,7) EOUIU05 

48 FORMATdOXlOHf RTHAUP y sE 18,7»20« CAL/GM ENTROPY atl2,5»j5H CAL/EOUIL06 
IGM.»DEG K/tOX 9HDEKSITY sEi3,6, 8H CH/CM5 ) 

5650 CONTINUE 

DO 510 l5lSP,NSPtC 
OCP(I) « CPF(l) 

DO 510 JslilS 

510 PCP(I) 5 DCPm-VNotl^J) * CPF(J) 

PTCaO, 

PCPcOf 

PHTsO, 

PTaO, 

DO 100 JsifNSPEC 
Kt2 

IF(TU(J#l).CT,T)Kal 

CPP(JlsR0(j^K)-?,/T**5*RE(J,K) 

PCPsPP(J>*CPP(J)t?CP 
PH(J)sPPU)*HI(J 1 
- PTiWJ)sT*CPF(J)*PP(J) 

IKJ.LE.ISIGO TO 100 

tAUCJ)sTC(J)*TC(J)*TC(J)*OCP(J)/l,9a69 

PTAU(J)sPPtJ)*TAUJJ) 

PTCaPP(J)*TC(J.)*CPr (J)*PTC 
PHT5PPtJ>*HlCJ)*TAU(J)4PMT 
PTsPP^IJlAtAUUlfPT 
PC(J)«PP(J)*1C(4) 

PTH<J)ftPTH(J)^HHJ)*TC(J)*PP(J) 

100 CONTINUE 

DO I25I«1,JSP2 
0XT<I>2)«4<1,2) 

PXy(I»nsA(l,l)*PM 

DO 125 J* 5,I8P2 C 

125 OXVllf J)«A(I,J)*PM 
DO 176 IMb18P,NSPEC 
DO 176 JSb 1»ISP2 
DUD&>TC(IH)*DXY(lr4S) 

DO 171 1P«1»13 

171 DU0SDUD+VNU(1M»IP)*DXY(1P+2#J8) 

176 0XY(IH^2,J8)bDUD 
00 197 KoiyNSPZ 
DO 109 4«lyISP2 
189 DXY<K,J) s DXY(K»J)/HTMCJ) 

C FOUOWIMG ACTIVE ONLY WHEN ISMl ELEMENT OBTAINED BY OIFFERENC 
tF(K0(6)tE0,n GO TO 197 
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INPUTOo 

INPUTOb 


KMMC.sl, 

If (KK(2J) 3^a,11«,32l 

321 Wf *.PC<1 n» 30 1 ) IP, ls,r ‘^AH»ljiJH2»00rt3»;5lil}'Jf 
If (IU,NL»0} hK(3)=f> 

If (OU22,GT,0. ) HT«UL=DUli2 
ir (DUP3.G;,0,) !.tS»U’L=0l'B3 
jr (PuB'f.GT.o.) 5ir.vA=nj.'B4 
If U'UtiS.OT.O.) Ef-OV^KsDUaS 
IF tDUa<>,KT,0, ) GHA =0Ub6 
IF (n'lby.r.f.o*) rTTt>‘’’H=r>uB7 
IF(FrAH) 3213»3?12»3211 

5213 fFAso, 

fiO TO 5212 

3211 FrAsFFAR 

3212 CU»:T1»:mE 
JAUHlsO 


DU85,DlJB6»DUB7»0UBf» 


IXS3 

311 RFAO(Kli»30a)^(KATCJ)f ATA(J)» ATB(J)» ATC(J)» RATCJJ» nKlJ/l)# 
1 ls|,7),J=l,IS) 

00 327 Ksl,7 


VASO. 

00 322 J=l»IS 

ir(KAT(J)*99) 3111,325,3111 
3111 1F(TR(J,K)) 32^,522,325 
3Zfl VA=VA-TK(J,K) 

TK(J,X)=-TK(J,K)/WAHJ) 

GO TO 522 

325 VAsVf.{ TK( J,K)**’*T (J) 

322 COwTiNvil 

IFtVA) 3£6,327,5?f* 

326 on 323 Jii.lS 

323 TK(J,K)=7H(J,'<)/VA 

327 CONTI M't 
ISPslG 1 

1F(K«(3)1 399,399,330 
330 TFMAXsO, 

AAAcO, 

NsO 

IlslSP 


302 HE AD (XI N, 306) (Al.PT(K) , JAT (K) ,KbI, 7) r 80HCE,AMOA, AM08 
IF(AIPT(D) 3021,399,3020 

3020 1F(JAT(D) 300,3021,300 

3021 NFFsAHS(Al.PT(l)) . ,-r.. 

KtAO:KlH, 302 l)(nFIA(I),NriB(l),FFINa),Isl»NFF) 


GO TO 302 
300 DO 305 K8l,lS 
305 C(K)sO, 

DO 3«9 1*1,7 . 

IFCJATd)) 306,309,306 


306 DU 307 K*1,1S 

IF(JAT(U-KAT(K)) 


307,308,307 


307 CONTINUE 

READ(K1N,303) 
GO TO 302 
306 ':(K)sAURT{n 
309 continue 
W7*0j 

L#1 


INPUT06 

1MPUT06 

INPUT06 

INPUT06 

INPUTOb 

1NPUT06 

INPUT07 

1NPUT07 

1NPUT07 

INPUT07 

1NPUT07 

1NPUT07 

1NPUT07 

INPUT07 

1NPUT07 

1NPUT07 

INPUTOe 

INPUTOB 

INPUTOB 

INPUTOB 

INPUTOB 

INPUTOB 

INPUTOB 

INPUTOB 

INPUTOB 

INPUTOB 

1NPUT09 

1NPUT09 

1NPUT09 

1NPUT09 

JNPUT09 

INPUTIO 

INPUTIO 

INPUTIO 

INPUTIO 

INPUTIO 

INPUTIO 

INPUTIO 

INPUTIO 

INPUTIO 

INPUTIO 

INPUTll 

INPUTll 

INPUTll 

INPUTll 

INPUTll 

INPUTll 

INPUTll 

INPUTll 

INPUTll 

INPUTll 

INPUT12 

INPUT 12 

1NPUT12 

INHUT12 

1NPUT12 
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i AMKK sO 
Ou 3cS IslflS 
If(r.(D) ia7,38«,‘4fl7 
JU7 LA'-KK=LA«KK*L 

KTsWItCtn * WAT(I) 

38P L=l.*L 

IF(J-IS) 3t0f360»3b9 
360 JMSJ-l 

on 3601 Lsl#lS 
3601 CUtl.,J)sC(L) 

La^'KJ) s l.AMKK 
IF CJH) 3^0,320,313 
313 on 3H Lsl,JH 
iMl-slHa) 
ur.HaCdHU) 

UH(U, J)*0, 

IF(UGH) 353,310,3S3 
353 DO .303 l=l,L 
393 UM(I,J)sUM(l, J)-UM(l,l.)*U6H 
On 390 X=IML,1S 
390 C(n-C(I)-TAU(l,L)*UCH 
310 l'"(J,L)sC, 

520 on 316 1=1, IS 

IFlAOS (C(U)-, 001)316, 316, 317 

316 Tfc»J(l,v»)=0, 
on 396 Isl,jM 

396 VKUni,l)*-UM(I,J) 

DO 397 IsJ,lS 

397 VKUni,n = 0, 

LAr^J(lI)=l Anr.K 
GO TO 370 

317 tM(j)sI 
UH(J,J)=1, 

00 398 L=1,J 

398 UM(L,J)=OM(t, J)/C(I) 
on 326 Lsl,IS 

328 TaU(1.,J)sC(U)/C(1) 

YCSYIMT 

KKSJ 

JsjTl 

ir(JwIS) 372,372,329 

329 on 330 Ls2,IS 

00 330 Ksl,JM 
«IGHsTAU(IMJ,K) 

on 330 Ul,X5 

330 UM(X,K)8UH(X,K)i*UCH*UM(I,JMAl) 

DO 333 1=X,IS 

337 IMIslM(I) 

IF(XMX»!) 336,333,336 

336 00 338 K«1,IS 
VsUM(K,IMX) 

UH(K,IHX)SUM(K,X) 

338 UM(K,I)«V 
XM(n«IM(IMXJ 
1H(IM1)«IHX 
GO TO 337 

333 CONTINUE 

C»»»««fcLENtNT -• BASE CAS CORRESPONDENCE 


INPUTIZ 

INPUT12 

XNPUT12 

IMPUT12 

XNPUT12 

INPUT 13 

INPUT13 

INPUT 13 

INPUT13 

INPUT 13 

INPU713 

INPUT13 

INPUT13 

INPUT 13 

INPUT 13 

INPUT 14 

INPUT14 

1NPUT14 

INPUT 1« 

INPUT 14 

INPUT 14 

1NPUT14 

INPUT14 

INPUT14 

INPUT I 4 

INPUTIS 

INPUT 15 

INPUT 15 

1NPUT15 

INPUT 15 

INPUTlb 

INPUT 15 

1NPUT15 

1NFUT15 

INPUT15 

1NPUT16 

INPUT16 

IHPUT16 

INPUT 16 

1NPUT16 

1NPUT16 

INPUT16 

INPUT16 

INPUT 16 

INPUT 16 

INPUT17 

INPUT17 

INPUT 17 

INPUT 17 

1NPUT17 

INPUT17 

INPUT 17 

INPUT! 7 

INPUT17 

INPUT17 

INPUTIS 

1HPUT18 

INPUT 18 

INPUT18 

XNPUU8 
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«.iy V- llJiPl'WiHAWAJitsS. 






C IMTl/UlZf tt,0 CtllUHN SUMS 

.'I 1 = 1 , ir. 

1= ( n=‘l 

uoi li 

C <VAI.I.'.U ItilTUI SU»'S 

i.A>;r.= i 

t n i>: ? 1 = 1 , IJ-. 

Of' cr)^ Jswn 

1 . HCI , = 

?r (jj = ic(vi) « i ji;(i,J) 

flos !»>())= iw(n -• i iM(i,j) 

'to? /MO*i A';'i 

c (.Mi.r.i' zft iis 
nzt iz=o 

<ic'. iiij tni> 1 = 1, IS 

inir.n>-iz) «■»»*, fcfiS,«40B 
cof) IJM n(.u J=i,is 

It «07,<if.6,«07 

flf.fe C'.ViTl iuf 
<107 ir.(i)=-j 
iw(j)-%l 
DO «?»i t<=l,lS 

it (U!‘(J,K)) «^r,,/|.>7,«2S 
«r‘j ICO^:- 

l.l'1(J,K)=0 
<127 If lLl'-(.f,n. 

<«22 Ll"(^-,li=0 

IK(K)r!H(K)«l 
<128 r,ni<T!;;'.il 
Gn in <115 

000 ndi'(n-iz) <<i2,‘if.'»,<ii2 

009 (><) <ilO J5l,IS 

ir(u)i‘(i«J)) 011 , 1110,011 
OH ICU) = -1 
IR(1)=«J 
LlM(l»J)sO 
Gil TO 0101 

010 cti'intiut 
0101 un 010 Kal,lS 

IKLlHfK,. 11)020, 029, 020 
020 l»(K) = lt<(K)-l 
LIM(K,J)bO 

029 It- a,IM(l,Kl) 025,050,023 
025 L!'t(l,K)sO 

IC(K)alC(K)-l 
036 ttlNTlUltt- 
r,n Til 013 

012 cnuTiuui 
l/sl/i i 
GO TO 000 

013 if.=n."i 
Jsls+l 

If (10) 010,010,026 
010 lf(KM(5)»3) 372,372,01!> 

Ol'j f AMiiA(If>)aAMOA 
FAMlinnaiaAMOll 
On 016 1=1,1$ 

Kb-IWH) 


INPUT18 
INPUT 18 
INPUT 18 
1NPUT18 
1WPUT16 
1NPUT19 
1NPUT19 
1NPUT19 
INPUT 19 
INPUT 19 
INPUT 19 
1NPUT19 
INPUT 19 
INPUT 19 
INPUT 19 

INPUT20 
1NPUT20 
INPUT20 
INPUT20 
1NPUT20 
1NPUT20 
INPUT20 
1NPUT20 
INPUT 20 
INPU120 
1NPUI21 
1NPUT21 
INPUT21 
1NPUT21 
1NPU<21 
1NPUT21 
INPUT21 
1NPUT21 

INPUT21 : 

INPUT21 i 

1NPUT22 i 

1NPUTZ2 

INPUT 22 i 

1NPUT22 )! 

JNPU122 I i 

INPUT22 i ! 

INPUT22 i I 

INPUT22 ; I 

XNPUI22 i 

1NPUT22 I I 

INPUI25 } i 

1NPUT23 1 i 

INPUT23 ‘ ' 

1NPUT25 : j 

INPUT 25 ? ■ 

INPU123 *: 

INPUT25 V 

INPUT25 5 

INPUT23 |‘ 

INPUT25 S; 

INPUT20 I; 

INPUT20 |! 

XNPUT20 1; 

lNPgi20 \ 



i 


ir( i)-‘»Mn4(K) 
u\b i'i(n=MMnH(K) 

<117 MTJf./ t(///Sk‘<HM fcMlNT ,1H4/1) 

<ll« HIKMAK bX9KHASfc SP 6(<IX2A4)) 

(.It TO 372 
369 on 36i LSI, IS 
VN'Idl ,L)=0, 

DO 361 Isl,IS 

361 V*.'ii(II,L) = Vfni(II,UtC(U*(jM(L,I) 

L*'‘I(II)sLaHKK 
570 KK=11 
IlslI+l 
YCs fl, 

372 RLAlUKiN.Jo?) (BA(K),HK(KK,K), RC(KK,K), RD(KK,K), RE(KK,K), 
IHKKK.n), ZK;C1'S(K), TiJ(SK,K),KPMA(K),Ksl,2) 

If (KMHA(l)-KPHA(2)) 3733,3/36,3739 
3733 IF CKPMA(i)+KPHA( 2)-S) 373«, 3737, 3739 
373a WHI1fc(KOUT,373S) AMIIA,AJMVi 

3735 FO-^MAi (////25H RAD PHASL NUMBERING FOR 2A9) 

STOP 

3736 1F(KPHA(1)-1) 3739,3727,3728 

3737 TU(kk,1)5-TUC<K,i) 

3728 FF(KK) s l.t+lO 
(jr.(KK) s l,(.*lfi 
GO 70 37 ?9 

3727 FF(KK)s(wT/FITrtOL) **FFA 

IFnE7(KK)s2 

Cr.(KK) s •!, 

3729 ir(NfF) 372<.,30<:9,3750 
3750 D(i 3723 I-l,*'*'!/ 

IF(Hf lAcn-AHOA) 3725,3729,3723 
3729 If (t.'FI«(I)-AKUB) 3723,3720,3723 

3720 IF (M IN(I)-100.) 3725,3731,3731 

3725 IF (FFINU)) 3«80, 3980, 3961 

3980 GGtKK) s -FTIN(l) 
iGHtl (KK)*l 

GO TO 3723 

3981 FF(KK) a FFIN(l) 

IFMFT(kk)s1 

GO TO 3723 
3731 TFCKK)s(.FINm 
3723 Continue 

IF (GG(KK)) 3999,3999,3955 
3999 IF {ZIGfPSCD-'lOO,) 3953,3952,3952 
3953 If CZIGFIPSU)) 3952,3952,3991 
3991 IF (ZlGtPS(2)) 3952,3952,3993 

3993 GG(KK) « ZIGtPS( 1 ) /SIGMA * (ZIGEPS(2)/EPOVRK)*A,0795 * 

I (HT/HASU0L)»*,25 
iGMf'. (KtOs3 
GO TO 3955 

3952 IF (KPHA(1)-1)3956, 3957, 3956 

3956 G6(KK) s 1,£«10 
GO TO 3955 

3957 GG(KK) s («T/f ITCMW)**GGA 
I6 MET(KK)s2 

3955 CONTINUE 

3726 IF(kB(3)-6) 3722, 372 W3722 

3721 RRITriKOUT,306)(ALPT(K),JAT(K), Ksl,7)t> SORCt«AMOA,AM0B 
NRm(KQUT,3020)(NA(K)> RB(KK,K), RC(KK,K), KD(KK,K), RE(KK,K), 

lRr(KK,K),ZIGEPS(K),TU(KK,K),KPHA(K}fKal,2) 


1NPUT29 
1NPUT29 
1NPUT29 
INPUT29 
INPUT29 
INPUT29 
1NPUT25 
1NPUT25 
INPUT25 
1NPUT25 
1NPUT25 
1NPUT25 
INPUI25 
1NPUT25 
1NPUT25 
INPUT25 
1NPUT26 
1NPUT26 
1NPUT26 
INPUT26 
1NPUT26 
1NPUT26 
1NPUT26 
INPUT26 
1NPUT26 
INPUT26 
1NPUT27 
INPUT27 
1NPUT27 
INPUT27 
INPUT27 
INPUT27 
INPUT27 
INPUT27 
INPUT27 
IFJPUT27 
INPUT 2C 
INPUT28 
INPUT28 
1NPUT28 
INPUT28 
INPUT28 
INI"JT28 
INPUT28 
1NPUT28 
INPUT28 
INPUT29 
INPUT29 
INPUT29 
XNPUT29 
INPUT29 
INPUT29 
INPUT29 
INPUT29 
INPUT29 
INPUT29 
INPUT30 
JNPUTJO 
INPUT30 
INPUT30 


15ft 



3722 FAHOA(KK)eAHOA 1NPUT30 

FAt!nH(KK)=AMOB INPUT30 

wrH(KK)=WT 1NPUT30 

RB(KK,1)= PB(KK,1) ♦ »A(l) 1NPUT30 

RB(KK,2) s RB(KK«2) ♦ KA(2) INPUTS! 

N=N+l INPU731 

1KKPHA(1)-I)373a,362,i6« INPUTS! 

36fl lFC(KK)s-l INPUTS! 

VN(KK)=0, INPUTS! 

Y(KK)sYC . INPUTS! 

IFTTf (KK).TT‘MAX) saa, 342(37! INPUTS! 

371 TFMAXsTF(KK) INPUTS! 

GO TC 342 INPUTS! 

362 1FC(KK)»0 INPUTS! 

VNCKKJavlNT 1NPUT32 

Y(KK)sYlNT 1NPUT32 

GO TO 342 INPUT32 

399 CONTlNUt 

C WRITE (KnUT,41S) UCrndMCDdsidS) INPUTS2 

5001 CONTINUE 

00 375 lsl,8 INPUT35 

DO 375 laldS INPUT35 

TO(1»L)»0, INPUTSb 

00 375 KsldS 1NPUTS5 

375 TO(I,L)=TO{I(L)*UHtl,K)ATK!K(L) INPUTSb 

3752 VH(N*!)=0, INPUT39 

IFC(N*1)3-i 1NPUT39 

WTH(N+!)s-i, INPUTSV 

FAMOA(N*l)=CHAR 1NPUTS9 

FAMOBCN+DsBLANK INPUT40 

TF(N»!)=50000, 1NPUT40 

IF(DUBfl,GT,0,) TF(N*j) s 0UB8 INPUT40 

RETURN INPUT40 

end INPUT40 


159 









SUiiKOUTlNF ISLOV ( W, X» Y, S« , R , Nn) 

ISLDVOO 

tJiMhusioN xn),Y(n.8H(n#«(n 

ISLOVOO 

DIMhKSlOM VY(b) 

ISLDVOO 

Dr<fc>S10H XX(6i,SLR(25)*Yl,(2S) 

ISLOVOO 

DO 1 T=1,N 

ISLDVOO 

1 Yl (naALOG(Y(I)) 

ISLOVOO 

CALL SLnP«v(u,> ,yl»slr»r) 

ISLDVOO 

DU 2 lsl,N 

ISLDVOO 

2 SR(nsY(I)*SLK(I) 

ISLDVOl 

Dt) 3 Is2»N 

ISLDVOl 

Xlsl 

ISLRVO 

X0 = X(T)>»X(I-1) 

ISLDVOl 

YSsVd )*Y(l-l) 

ISLDVOl 

SO“SRd)-SH(l-n 

ISLDVOl 

Y0“Y(l)-Y(l-n 

ISLDVOl 

YDl.RtYD/XO 

ISLDVOl 

Y2.t)tR = SD/XD 

ISLDVOl 

T?=AljS(XD*YOd;) 

ISLDVOl 

Vs = ABS(Y?DLR#XO/2.*XI)) 

ISLDVOO 

T3 s AbS(Y(l»n) ♦ T2 

1SLDV02 

IF (73-0,lb*TS) a,u,b> 

1SLOV02 

H R{U s Rn-1) + Xl)/2.*(YS-XD/6,*SD) 

ISLDV02 

Gn TO i 

1SLDV02 

5 YY(l)»ALOGCYtI-i)) 

ISL0V02 

RK=0,0 

1SLDV02 

XX(l)sX(l-l) 

I3LDV02 

DO ,e J=2»b 

1SLDV02 

e xx(J)sxx(J-n-i xo/a. 

ISLDV02 

CALL m;U(b,XX»YY,A:,X,YL»SLR) 

ISLDVOl 

I( (NO-1) 9»9,10 

ISLDVOl 

10 YMAX=YY(1) 

ISLDVOl 

YMIN=YY(5) 

ISLDVOl 

ir(YY(5)-YY(J)) 11,11,1? 

1SLDV03 

11 YMAXaYY{5) 

ISLDVOl 

TMlNaYt(l) 

ISLOV03 

12 DO 13 JB1»S 

ISLDVOl 

1F(YY(J)-YHAX) l«,lfl,l5 

ISLDVOl 

iU 1F(YY(J)-YHIN) lb, 13, 11 

ISLDVOl 

13 CONTINUC 

IS! 'IVOR 

GO TO •) 

u )voa 

15 SSRs(Yy;b)-YY(l))/XO 

ISL 'V04 

T<|sAH3(2,*SSR*XD/{YY(b) + YY(l))) 

lSL.iVOO 

11 (T«-,00001) 19,16,1« 

ISLDVOO 

19 RRsO,5*XO<t(LXP(YY(5))*F.XP(YY(l))) 

ISLDVOO 

GO TO 17 

ISLDV-0 

18 RHs(EXPtYY(5))/SSH)A(l,-EXP(-SSR*X(>)) 

ISLDVOO 

17 R(I) s R(1-1)+PH 

ISLDVOO 

GO TO 3 

ISLDVOO 

9 DO 6 J*2,5 

ISLOVOb 

8SR*(YY(J)*YY(J-l))/(XD/«,) 

1SLOV05 

6 RRSRR+(EXP(YY(J))/S8R)A(1,»EXP(»SSH*X0/<I,)) 

1SLDV05 

RCnaRU-D+RR 

ISLDVOS 

3 CONTINUE 

ISLDV05 

RETURN 

ISLDVOS 

END 

ISLDVOS 
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SUBHOUTINr. I INT2 


BAt)CL?B 


C0Ht^0M/CONTM/NCRC(20) RADCL29 

Cnt-iHOR/tO?COM/SPZZ(2fll)»lSOUM,SPZ2(70)»i»OUM,SR23(a80),TOUM, 

1 SPZA(2iie),VN(60)#VNU(60,8} 

COMKON/INTCOM/KR(20)»KO{lO)»KF(10).rt»»J 

CO‘1MON/LINK/HVL(200),KlfK2»TLC«(?Si»TLCP(25)/ NX1»1A(9) RAOINO 

l»Nl,XNOU200)»GUP(200),lXPM(200),Xt<(20)»K rlNOSHLUZ) 
2»S(200)»S1(200),S2(25) 

CUMHOH/NONCOH/AH(123, 12J) 

C0MH0N/0UTCnM/LDEX(3) 

COMMOM/RAD/AHV(ri0)»AHVL(25)»Cl»C2»C3.C9»Cb»DtLTA,EPS(160),FF(200), HAD 
lFHV(2S)»fHVc(S0)»FHVM(2S),KHVP(2S)»nMI(25)»FIPI(25)»FLlfFL2,FLG» HAD 
2FLGl,CAMP(200),(;EE(U0)f RAtS,NBLP,NO(200) »N1C»NICN(2 RAO 

35)»NlHVC,RHV,fJU(2S)»NY,?RES(20),'rLF.(20)»KOU2^>),XHOL» 

H YOtLT,YY(20),CASf (lb)#TMSh(50)#THSWl,(2S),TW,TOB 
5,NRAO»RFACT,PO? 


OIMENSIPN XXN(123»U 

dimension nUTC(l23,l)rOUTL(l23»l) 

DIMENSION BEE(20)»FHVS(200),FlIMT(20),FIlPT(20),FIM(20)/FlM7(20)»FRAncU29 
1IPC0),FJPU 20)»FMUC20) , TAU(20) » TAUK20) »TMU(20) *01P (20 J » RADCL30 

20!M(20) ,XIMU(20)f XlPn(20)*lUSL(20)»XlH(20)>XlP(20) RADCL30 

dimension SMOCP'j) 

niNFNSTON DY(?0> 


DIMENSION HtAO(17) 
dimension Sn(H0),S3(20)#S6(20) 
DIMENSION S7(20) 

DIMENSION S«>(20) 

EOUIVAUtNCt (XXN,XNN) 


DIMENSION 


1 

OSL(123,l) 

2 

ViIH(l23,n 

3 

DIXQ(123,1 

4 

StU23,l) 

5 

TCN(l23,l) 

6 

XNN(123,n 


r 0A(123fU 
♦ Ar(123,n 
) , AFT(123»1 
, BRG(12i#n 
I AIN(123*i) 
, XO(123,U 


I DwD(123fI) 
, wO(123iU 
) » ABF (123, 
, A1G(123,1) 
, AC(123,1) 
,A1GC(123,1) 


, AB(123,U , 

, GAH(123,1) , 
1) , BFT(123#i) 
, ATT(123,1) , 
, AhT(123,i) , 




1 

2 

3 

4 

5 

6 
7 


EQUIVALENCE 

(0SL(l),AM(l)) , 

(ABU),AM(26B7)) 

(WDU),AH(<l96in 

(AFT(1),AM('j02«)) 

(SL(n,AH(7aOD) 

(AIT(l),AM(0b9l)) 

(ACa>,AH(l2610)} 


(DA(t),AM(10<O) , (DW0(n,AM(2461)} , 

, (WIH(1)#AM(4921>) , (AT(l),AM(a94l)) , 

, ((:AM(l),AM(<|9nO) , (OUXQdl^AHIbOOm, 
, (ADE(l)»AM(b270)) , (BFT( 1) , AM(7381 ) ) , 
, (aPG(n,AM(7461)) , (AlG(n,AM(867n) , 
, (TCN(l),AM(lOH?)),(AINCU,AM(126lOn, 
,(AHT(1)#AM(12630)) , (XNN( 1 ) , AM(9964) } , 


161 



(XOU),Afi(lOOO«)),(AinC(l),AM(‘)«2‘>)) 

,(UUTCa)»AM(';02n)»(f'UTU(l)f AM(9*)12)) 


EOUlVALENCF. (BEE ( 1) , AH(652e) ) » CFIIMT ( I ) » AM (6651) ) » (FI IPT ( 1) » AM( 

1 e770)),(FlM(l),AM(ft6‘!7)),(HMT(l),AM(‘>0?0))f (HFTU) 

2 ,AM(9ia3)),(FHU(l)»AM{<)266)>» (TAU(l),AM{9Xfl9)) 


6HEN6TH ,(IH(EV)r 
,6H«STfcR)»bHW/C 


l()E9,2/(25X» 

|0E9,2/(2SX, 


PU8 CONTRIBUTIO 
TOTAL 


DATA HEAD/XH-tV, iH, MU, 6M FRK(JU,6nrNCY ,6HWAVE 
1<IH(MU),6H (FTX/,6Ml.iUCM),0H (l/C,6HM) ,6H) 

2M2,5H ,5M"STf«/ 

1000 FnRMAT(lMl,3ax,3«HLlNL TRANSPORT QllANTIlIES AT VY * »F5,3) 

1001 FORHATdSH LIM- GROUP NO,, 12) 

1010 FORMATdSH I’ATH L£NGTH/lbH (NORMAUIZtO) »0X, 

110E9.2)) 

1020 lORMATdHH CONTU, ABSORPTION/ 7H COf FF , , 2A6, 2X 

1021 VoHMAT PLANCK FuNCT 10N/16H (wATTS/CM2i.STfcR#A3,2H) , 10E9r2/LINT 09 

1030 VoRHATd9H\l,Bi( MISSIVE POhER/llH (KATTS/CM2, A3, IH) ,6X, 10E9,2/L9NT 09 

1(25X,10E9,2)) 

1031 FORMATdH ) . , 

1032 F0RMAT(22X, 16HP0S. CONTU FlUXs E 9 , 2 , IX, 16 HNEG, CONTM FLUX= E9,2,HNT 10 
11X,17HH0TH IN WAl TH/CM2, A3) 

1040 FORMAT(a6X,P4HABSORPTlON COFFF ICIENTS, , 1 X , 2A6 /2X,2A6,38X18HOP 

niCAL DEPTHS, ANn/'j>3X,6HFLUXrS) ^ 

1041 FORMAT(22X,23Hrtisri IVL SPECTRAL FLUX* C9,2, 1X,23HNEGATIVF- SPtCTRALlNT 16 
iL FLUXS E9,2,1X,13‘'MUTH IN W/CM2,Ai) 

1042 F0RHAT(22X,24HI'0S, SPECTRAL INTlNSlTY= E9,2, lX,24HNtC, SPECTRAL ILINT 16 
INTENSITYs E9,2, lX,l3Hrt01H IN w/CH2,A3,5H-STEH) 

1045 F0RHAT(2X,F6,5, 1 IX, 10E9,2/(25X, 10E9,2)) 

1046 F0RHAT(21X, 10|9,2/(25X, 10F9,2)) 

1047 format (IH ) 

lO'iC FCRMArdMl,///5rX,r2!iLIM£ RAOIATIOL* SUMMARY/,') 

1051 F0RMAT(22X,77H CPOUP BOUNDARIES 

IN NLG CONTRIBUTION/ 

222X,77H NO, NE6, POS, SPtCT( 

3 SPLCT, TOTAL) 

1052 FuRMAT( 24X,I3,2X,6E12,4) . .r , .c ,w 

1053 Format ( 35X, A4,«x, A0,oX,A 5,A3,5X,A5,6X,A5,A3,5X,A5/SBX,A5,7X,A5,7X, 
lA5,7X,/,5) 

1054 FORHAT(/52X,eHTOTALS s,5X,El2,«, 12X,E12,4) 

1090 FURMATd«,F12,3,iX,10ElC,2) 

1091 FORMATd9X,10El0,2) 

1092 FORMAT(3X,10HTOTAL P0S*,6X, lOF 10,2/(19X, 10tl0,2) ) 

1093 FORHAT(3X,10HTUTAL NEGs,12X, 10E10,2/(2!»X, 10H0,2)) 

1094 F(1RMAT(2bX, IOEIO.2) 

1095 FORMATCIH ) 

2010 FOHMATdHl/57X,14HLlNE RADIATION) 

2020 FORMAT!/, IWH NORMALIZED OIST s, IX, 1 OE 1 0,2/d9X, 1 Ot 10,2) ' 

2030 F0RMAT(/,6H GROUP, 3X, 2A6,30X ,12H|»OSITlVE ANO/2X, 3HNO, ,6X, 

I A4 ,40X,22HNEGATIVE CONTRIBUTlONS/bOX, 10H(HATT8/CM2, A6) 

2045 F0RMAT(2X,F6,5,11X, 10E9,2) 

lo94 FOHMATlAM^CROUP^axfiA** ' 2X#18HNEG CONTRIBUTION, 2X, 16HP08 COLIN't 86 

|NTRIBMtlON/2X,SHNP,,6X»A4 , |2X,5MW/CH2» 13X5HM/CH2) 

3018 FnRMATdHh/lOX,6HGROUf* #13»13M CCONHNlltl))»,//) ■tut 

3040 F0RMAT(46X»24MABS0RPTI0N CUEFF IC1ENT8, » I X»8H( 1/CM)/62X, 18MOPTICAI LINT 
lDEf’THS,ANP/56X,HHlNTEN3ITIES) LINT 

3072 FORMAT (22X, 16HP03, CONTM INTSa E9,2, IX, 16HNEG, CONTM INTSs E9,2,LINT 
IIX,22HB()TH IN WATT3/CM2-STER, A3) 

ISO s ISDUM 
ISP a ISO ♦ 1 
ISP? s ISO ♦ 2 
LDEXd)»NlCNd) 

LDEX(3)bNICN(U 


RADCL30 


RADCL30 

RADCL30 

RAOCL30 


u 

12 
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r* o ri o o 


53 


NLGlsH.(iU,OOOOl 

NLGsf-tCi +,00001 

LLUL=1 

LIAS 3 

UBS? 

ULCS 13 

If (KR(8),NE,1) go to 53 

LLLLS2 

LLAsS 

LUBS0 

IFCNLGl.tO.O) LLCsH 
LLLsU 

IF(KR(13),GE,3) 
IP(KR(ia),NE,2) 

CC3 B 1, 


LLLB^J 
ALF a 


1 . 


S(J),Jsl,NIC) 

HEAO{LlA),HEADaLA*I),H£AO(ULB),HEAO(LLC) 


YY(I)) * C2 


1F(KR{17).NE,0) GO TO 115 
DO 120 UalfNIC 
IYbNICN(LL) 

120 SaU) = YY(IY) 

WRITE(N,2010) 

MRIT£(N,2020) ( 

HR1TE(N,2030 ) 

115 XKsNY 

NYP s NY ♦ 1 
NYH = NY#1 
DO 760 Isl,NYM 
760 OY(15 a (YY(I«l) 

00 30 LL=1,NY 
XIP(UL) = 0, 

AiH(i.L) - 0, 

FIPT(LL) a 0, 

FIRT(LL) a 0, 

FIIMT(LL) a 0, 

FHPT(LU » 0, 

TI.CM(LL)a0, 

30 TLCP(LL)a0, 

NYP s NY*1 
ISM a IS0«1 
DO 3010 tal,NY 
DO 3010 JsljNYP 
AMTdiJ) a 0, 

KK a J-NYP 
DO 3010 JJalfISH 
KK a KK ♦ NYP 
3010 AFT(1»KK) a 0, 

: FAR WINGS OF HYDROGEN LINES 

IF(122,NE,n GO TO 3097 

Klal 

K2SNXI 

CALL HULE2(V>o3,l) 

3097 CONTINUE 
ISPECSal 
K2a0 

C2COS a S0RT(6,28318*C2) /69,6053 

*****A********iMt Aft ************ A ******************** ******* 
* 

* LOOP ON LINE GROUPS 

A 

00 50 Kal,NHV 

K 18 K 2+1 

K2aK2TNU(K} 


RADCL31 

RADCL31 

RADCL31 

RADCL31 

RADCL3I 

RADCL31 

RA0CL3I 


RADCL31 

RA0CL32 

RADCL32 

RADCL32 

RADCL32 

RADCL32 

RADCL32 

RADCL32 


RADC132 


******** 

* 

ft 

ft 

******** 


RADCL32 

RADCL32 

RADCL33 
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„liW| 


RADCU3i 


NSt, s NU(K) 

ISPECsO 

lF(K.r4C,IA(I8PECS)) GO TO 3100 
I3PfcC=l 

JSPfCDslSPECS+1 

3100 CONTINUE 

CALL HU(FHV(K)#FMU) 
lF(IZi,NE,l) GO TO 3101 
lKI5PfeC,fcQ,n GO TO 3101 
call r4ULfc2(FHV(K),3»n 
DO 3102 lsl,NY 
3102 FMU(K)sFMll(K)+Sim 

3101 CONTINUE 
BEEN s 0, 

BEEOB s 0, 

XJN s 0. 

FIP(NY) * 0, 

IF(TW) 200»200»2106 

2 JOB Tl s TW * PGP 

AQ e FHV(K) / Tl 

BEEN s bOaO,* FHV(K)**3/(EXP(A0)«1,) 

IF (NLGi.NEtO) BEEN s 3,1<I16*BEEN 
XJW s AHVL(K) * BEEN 
200 IF(TOB) 600,600>6!0e 
6J08 Tl s TUB*b. 62E«0S 
AO e FHV(K) / Tl 

BEEOB s 50«0,*FHV(K)**3 /(EXP(aQ)«»1,) 

IF(NLGl.NE.O) BEEOB e 3,Hl6*BEE0B 
<>00 IP (KR(5),GT,5) FIP(NY) s BLE08 
FIrtU) a AHVL(K)i»EEW 
00 DO 10 Ial»NY 
DO 22 J«i»IS0 
22 AlGCn«J) B AlC(IrJ) 

TlaTtE(n*PnP 

FMU(I) s FMUm ♦ l,E-30 

BEEdlaO, 

AQsFHV(K)/T1 

V s EXP(AQ) 

VI a V • I, 

BEECl) a sdaO,* FHV(K)**3/Vl 
ATT(l»n a BEE(n/Vl*V*AO 
JF(NLGl) UdOdO 
16 BEE(l)a3,U16*BEE(I) 

ATT(I»1) a 3,l<li6 * ATTUjP 
10 CONTINUE 

$(1) a 1,*AHVL(K) •THSHL(K) 

8(2) s AHVL(K) 

8(3) « aj, 

XJMW a FlM(l) 

XIPOB a FIP(NY) 

CALL TRAN83(NY»OY»NlC»NlCN,ALF»BEF.»FMU,S,8l,S2,TAU»nM,FIP) 
lr(KR(6),EQ,l)FlP(l)aTM8NL(K)*FIP(l)»'0Ft(l)A(l,«TMSNL(K)) 

00 300 I81,NY 
XIH(I)aS(I) 

. V a ATT(I»l) 

DO 300 JairlSF 
lOX a 0*(Jal) ♦ I 
500 ATT(1»J) a V * AjNdOX,!) 

CALL BULE2(FHVS,ld) 

1F(ISPEC,EQ.1) CO TG 60 
IF(KR(4)aS) 60r65»60 
60 call FREQ(K»N8HVfFHV8»CFXL) 

GO TO 7000 

65 CPIL * FHVP(K)aFHVM(K) 


RA0CL33 


RADCL33 
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1500 


1505 


585 

1506 

C 

7000 


H70 


6320 

6525 


C 

C 

C 


3oa 


601 


600 

0575 

0576 
0570 


125 

4610 

1909 


V s 0, 

DO 1500 Is1,NSL 

S(I) r. SQRT(SLn»'JI)/SUn*NI)*GAMU,NI)/GAM(l,NI)) 

V = V+5(l) 

SMOcn s cFiu/v 
on 1505 l3l,NSL 
rnD(I) = SMO(l)*S(I) 

38(1) = I, 

S5(l) = FIM(l)+BtLcn 
DO 1506 1 = 2 , NY 
S5(I)=FItUI)+nt;E(I) 

S 8 ( 1 )=S 6 ( 1 - 1 )aXIH(I) 

S2(l*-l)=FIP(I«n + hFu(I»-l) 

86U) = DY(lMn/606'),68*Utt(I) 

VI s lif.t(n/UEE(I~l)-l, 

JF(A08(Vn.GT, ,0n GO TO 585 
SlU)sUCE(l-n*(l,*Vl*(,5+Vl/20,*(Vlr?.,))) 

GO TO 1506 

Sl(I)sBCE(I-l)iiVl/ALOK(VUl,) 

CONTIMUI C 

)IC8S»)1*I(2S,J1US )1990,6(ET1HW 6051 

CONTINUE 

VI s -CHLAiSBOSaCCS/RFACT 
DO 6325 1=1, NY 
MPJ s 2 

DO 1070 J=1,NYM 
MPJ s MPJ+1 

ANT(1,MPJ) = AMT(I,MPJ) + WIH(I, J)*V1*FU 
MPJ s 0 

00 6325 KK=l,IS0 
IF(KK,EO,?) GO TO 

Mn 1 «• Ml) ) 4 \ 

00^6320 J=i,NY 
MPJ = HPJ+l 

V = BFT(I,J) * AIG(J,KK) + ATU,J)*ATT(J,KK) 

AFTdfMPJ) a AFT(I,MPJ) ♦ V*Vl 

CONTINUE 

1F(N|.C*1) 61,308,61 

OUTPUT UOGIC BLOCK FOR EXTENSIVE OUTPUT OPTION 


CO' TINUE 

IY«NICN(l) 

YDELT=YY(IY) 

NRITLCNflOOO) 

LC=0 

NRITE(NrlOOl) 

LCsLC+l 

WRITE(N,1010) 

LC=LC+2 

NRXTE(N,1020) 


YDELT 

K 

(YYdlf lalfNY) 

HEA0(LLL)*HEA0(LU6l)f (rHUd),I = l,NY) 


LC=LC+2 

IF(NUG1,EO.O) go to 125 

IF’(KH(8)) 0575,0575»0576 

WRITE (N, 1030) MEAD(l),(BEEd)dal*NY} 

GO TO 1022 

DO 0570 Ial,NY 

32d) a BEE(1)/1,20 * FKV(K)*FHV(K) 
NRITE(N,1030) HEAD(2) r (82(1 ) , lal ,NY) 
GO TO 1022 

IF(KR(8)) 4610»0610»1999 
WRITE(N,1021) HEAD(l)»(BEEd)»I»l»NY) 
GO TO 1022 
DO 4B10 )al,NY 
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4C10 

1022 


4719 


«771 


9710 

3070 

9721 


6C5 


3076 

3077 


61 


C 

C 

C 

C 

C 


C 

C 

C 


eo 


6501 


23 

501 


S2(I) a BKfc(I)/l,2<J *FHV(K) *FHV(K) 

WHlTt.(M*102n MfcAD(2),(S2(I),lal,NY) 

COVilK'UE 

LC=LC*2 

LLal 

1F(KR(8),EQ,1)LL=2 
1F(K«(»),F0,2) GO TO 4719 
V3aFIP(lY)+BEE(lY) 

V2 » F1M(IY)+Btt (lY) 

IF(KR(fl),FQ,n r,0 TO 4771 
ir(NU;i,fcO, 0 ) GO to 3070 
60 TO 4718 
V3sFIP(1Y) 

V2aHH(IY) 

IFCNLGJ.EO.O) CO TO 3070 
CO TO 4710 
VI=1,24/FHV(K5 
V3sV5/Vl*FHV(K) 

V2*V2/V1*PHV(K) 

1F(NIG1,EQ,0) GO TO 3070 
WRITL(N,1032)V3,V2,HtA0(LL) 

GO TO 4721 

wRITE(n, 3072) Vi* V2«HEA0(U; 

CONTlHUfe 

LCaLC+l 

WRITE(N,103n 

IFCNUGl,tQ,0 ) GO TO 3076 

WRIT£(N, 1040) HEAD(L'.U)*HEA0(LLLU) *HCADn.LA),HEAO(LLA+l) 

60 TO 3077 
WRITE(N,3040) 

CONTINUE 
LC- LCf w 
CONTINUE 

A*******************)!********************)*********'******* ***«*«**« 

A LOOP tV! LINlS * 

*«***« ... «**•«** A* A A*« **************** A* A ************* A************ 

L*0 

00 6500 JS s l,N3L RA0CL34 

lOSL(JS) a JS RADCL34 

IE a K1 • 1 T lOSKJS) RADCL34 

V4 a XN0L(IE)*«440;>5 aCC 3/HFACT 
IF(ISPEC,HO,n GO TO 30 
1F(KR(4)»3) eO*65rOO 

FINITE DIFFERENCE CALCULATION 

OUM a 0* 

LKaO 

NPPLelS 

IF(JS,EQ,UNPPLal6 
IF(JS,E0,N5L) NPPL«16 
IF(NSL,EQ,1) NPPL817 
LKaLKFl 
U«L4l 

XJWL a XJN 

CALL NULE2(FHV8(L)*2*J8) 

00 SOI ImifHi KADCL3S 

DO 23 J81,I80 

A16(1*J) a AICn*J)AAI6C(t*J) 

TMU<l)sSim ♦ FMU(I) RAOC13S 

8(1) a 1,*AHVL(K) -THSULCK) 

8(2) a AHVt(K) 
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o r> o 


S(5) s -I, 

XIMO) s XJHw 

xiP(NV) = xiPtm 

CALL TRANS3(NY,DV,'-!IC,NICf>!,ALF,HEt,TMU,S,Sl,8a,TAUT,XlK »XlP ) 
U (KK(6),rQ,l)XlPU) = T«SWL(K)-*XlPU)-HM. U)*(l,-TMSWUK)) 


00 302 U^l^NY 

HMT(LL)-f 1HT(IL)+(XIM(LL) + XIMU(LU) *DUM RADCU3^ 

FlPT(LL)=f!f’T(U.)v(XlP(LL) + XlPO(LU) *DJH RADCL3b 

160 XlMOaL) = XlM('.l.) RARCL3'.t 

302 XIPO(U) = xlPd.U RADCL36 


PRINT OUT PACKAOl RIR SUBGROUP FRf.QUtNClfc.S 

IF(NLG,NE,n GO TO 352 
LLsl 

IY=N1CN(1) 

Vt*FHVS(U 

IF(Kf<(0),NE,l) CO TO «<|75 
U.=2 

Vlal,2«/FHVS(L) 

<t<l75 1F(NV,GT»10) GO TO 6690 

WRITE (N,,'0a5) VW (TRU(I)f I»l*NV) 

WRITE (N, 2046) (TAUT(I) , I=l »NY) 

CO TO 6B91 

6890 WRITt(N,l045) VI » (TfU( 1 ) » 1 = I * NY) 
WRITEfN.1046) (TAUT(I),l=l,NY) 

6691 CONTINUE 

IF(KR(0),EQ,2) GO T^ 4455 
V3 a XIP(IY) + PLEdY) 

V2 s XIM(IY) ♦ PLEUY) 

IF(KR(8),RfM) CO TO 4«50 
1 F ( NLG 1 r EQ • 0 ) CO TO 606 
GO TO 613 
4455 VSaXlPflY) 

V2 s XIM(IY) 

1F(MG1,LO.O) GO TO 606 
GO TO 613 

4450 VSsVi/Vl^FHVSIL) 

V2 = V2/VJ *FHV3(L) 

1F(NUGI,EO.O) GO TO 606 
613 WRITE(N,104l) V3»V2#HEAD(LL) 

CO TO 608 

606 WRITE(N,1042) V3# V2*HE4DaL) 

60S WRITl(N»1047) 

UCstC+4 

IF(LC,LT,45) CO TO 352 

WRITt(N,30I6)K 

tC»5 

352 CONTINUE 
C 
C 

IFaK«l) 1326,1326,1327 

1326 VI »(FHVSa+l)-rHVS(L))*V4 
CO TO 1329 

1327 IP(I,K-NPPU 1328,1330,1350 
1330 VI ■(FhV8(l.)*FHV8(W«l))*V4 

CO TO 13£9 

1328 VI 8tFHVS(L+i:-FHVS(l«»l))*V4 

1329 CONTINUE 

DO 2325 lal,NY 
MP4 a 2 

DO 1475 4al,NYM 
HPJ a MP4 ♦ 1 

1475 AMT(I,MP4) a AMTCI,MP4) ♦ WIMa,4)*Vl*FU 
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i 


k 


i 

‘ 4 * ^ 

■ i , t 






MPJ = 0 

DO ?y^b KK = 1,I30 
IPCKK.EOt^) <50 TO 2ia‘i 
MPJ 5 MPJil 
00 23?a Jsl^NY 
MPJ s MFJ+l 

V a BFT(I>J)*AlR(.)fKK)+AT(I»J)*An(JfKK) 

aym s aftu»mi'J) ♦ v * vi 

232p CGNTlNUr 

OUMa(FHVS(L+l) - FhVSCL))/ 2 , 

IF (LK.Ll fNPrU GO TO 6'jOl 
GO TO 70 
C 

c effective HIOTH calculation 

c 

C CU«TIS GODSON MODtl. 

65 laNY 

SM2 a 8HDtJS)/XN0l (I . I 

C S IS THE INTEGKaL OF THE LINE SfRI NGT h*NIDTH OVER SPACE 
S(U a 0, 

89U) a 0, 

S7(l) a 0, 

V5 a 0, 

SL(J8,n a RLCJS»n + l,E-3b 
V7 s GAMCJSf J)*SLUS,n/B06«,«)8 
DO 610 Js2»NY 
SL(JS,J)sSL(J5»U)+l,r-35 
V8GAM(JS,J)*r>L(JS»J)/6064,96 

VI s V/V 7 - 1 , 

ir(ABS(Vl).GT, , 0 n GO TO 576 

S(J) a SCJ^n + VyADYU-naa.+VlaE^bAVJ/aAl.^EVlo?,)) J 
GO TO 612 

576 S(J)s5(Jfl )+V7*0Y(J-1)/AL0G(V/V7)*V1 
612 V7»V 

V2 a SL(JS,J)/SL(JS»J*>1) 

VI a V2*l, 

IF(ABS(Vl).r.T, ,01) GO TO 526 

V5aV5*SL(JS, J-l)*0V(J-l)*(i,7V I A(,5* Vi/29,* (Vl«2,))) 

GO TO 615 

526 V5aV5+SL(JS, J-l)*OY(u-l)*Vl/ALDG{V2) 

6 i 5 S 9 (J)aV 5 *S 0 (J) / 606 <l ,-)8 
87 (J) a 2 ,*SORT( 3 (J)) 
btO CONTINUE 

C20DaC2/SHZ/0^69,996 
C2CO a C2C0S/6HZ 
V5 a 0, 

EX a 1, 

FIPT(NY) s "BEE(NY) *3MZ 
V2 a 0, 

V3 a Oo 

C POSITIVE FLUX 
DO 365 Ila2,NY 
V3 a 0, 

VS a 0, 

DO 2365 JaI,NY 
V(|aV5 

VS a Z.ASQRTESEJJ^ad-iUIaSBEJ) 

2365 V33V3+(V5-Va)»Sl(J) 

SLIaV3/SMZ/S8n«n 

V 2 a V 27 SlCI)*CS 9 (I)« 89 U-*n) 

OTIa(V2*89U«l)*S2(I«l))/SMZ/S8(X-I) 

350 I*I"1 

X a ,63662*(UTI/SLI)*«2 
83aon/»EE(Nn/X 
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# . 



'^,«,'<v>rO''‘^.*' r-ifrt\vT'''Uff»^j:i^*%,'';''’ *^?^j'«’^< 5 (‘.''.»a^ ••■«'vsr/«-v 


if:x,g£, a.o)GU io 3&i 

IF (Sl.oe ^/X) GO TO 361 

ir(x,i.i., o.o'j) r.u to 362 

1FC53.GT, l,0i GO TO 362 
ISOLATED LINE 

NOTt\,XtAMN JR L AOl.NBURG-^LlCHfc FUNCTION 
XtAGR s X /n,t(l,!j/0/V* X 
V s S3*SMZ*XLAN« 

GO TU 36C 

STRONG LlNi: FI SA.' Sr.R fUVD HOOEL 
V<1 s S3 *Sa«T( X /2,) 

V=LR» tVfl)*SMZ 
GO TO 560 

W{AK LINE KflDEl (NOT LJNLAK)-<.AFTLK PLASS 

V=a,-EXP(-S5#X) )*S?<Z 

URHIsBEtlNn^V 

TfcRF'2aFlP(nA:.‘*z 

FlPT(lJsTEKMH rFI»N2 

HlRFUT(SX,iP7n3.5) 

r.ONT INUC 

FPKMAT(2X,2I3,lP7L12,a) 

)VtJ,oJ(i=AC,)YN,SJaS»)YN(tPlF,mTMlF,>HLF.B )885»fe(ETIRW 
V9sl,»ANVU(K)-lMS.-.L(K) 

NAUR = 0, 

WALLF s 0, 

IF(AbS(HP(m.; T.I.E-33) GO TO 26 
KALLhs-TERKI/(X/(l, + X)*f IPU)) 

KALLW s Ar.iNl(hAl.;.w,SMZ) 

WAULF s TIHM1/»:AU.M 
V3 = 0, 

VS » SnRT<CAM(.IR,t)*SL(.IS*n *YY(n) 


t # - V , 


V8S0, 

via = i, 

VIS a 0, 

FIMT(nav9*(HPT(n*BEr(n*SH?) + SHZ*(AHVL(M*BEF.N-BtECl)) 
FORiiAT(lOX,313, iPSt I2,a) 

NEGATIVE FLUX 
DO 375 lIa£«NV 
VSaO, 

VlaO, 

JJall 

DO 2375 Ja2,i: 

vasvs 

VS a 2,*SQRT(.'5(II)-S(JJ«in/sa(JJ..I) 

VI a VlfSl(JJ)*(VS-V«} 

)UJJ(eSr)l«JJ(Sf m(S,lV«SV,JJ«J,lI 19493 , 8<ETIRH 

JJaJJ-l 

StI s Vl*88ai)/SMZ 

SUsS8{ll)/SMZ*(Vl"S5U)*S7(II)*HALLF»(WALL»»«AMlNl(WALLH,S7(n)))* 

I V9) 

va * via 
via a I, /88(H) 

V8 8 V»*8l(H)A(Via>*V«) 

va 8 VIS 

V7 a S9(II)AVla 

V15 a V7AVia 

V3 a ViTSl(U)*(Vl5-Va) 

OTI a 88(ll)/StiZ*(V3«V7*V8) 

X - ,63662*(OTl/SLX)**2 
va a HALUW * Sb(II) 

OTI 80TI»lSS(l)*S9(lI)*V9a»»ALl.F*(Va-AHINl(V«,89(IX))))/8MZ 
V2 9 HEE(II)-V9a»fAUF*85(l) 

V5 « 88<I1)/3HZ*WALLF*MALLWaV9 






c 

c 

c 


V6 s Kt!E(n)»S5(l) 

V s QT1*V5 
VIO - SLI-V5 

IK37(II) .r.T, GO TO 700 

If (S9(II) ,GT, V«) CO TO 750 


CASb 1 


X s ,63662*(V /V10)**2 
S3 s V /(V2*SR(ll)*X) 

GO TO 400 
C 

C CASE 2 
C 

750 X * ,63662*(OTI/V10*V2/V6)**2 

S3 s 0Tl/(V6*se(Il)*XJ 
CO TO <100 


C 

700 IFtSOdl) »r.T, V4) GO Ti) 775 

C 

C CASE 3 

C 

X a ,636R2*(V /SL1*V6/V2)**2 
S3 a V /(V2*S8(I1)‘X) 

CO TO 400 
C 

C CASE 4 

C 

775 X a ,63662* (UTI/Sl.I)**2 

£3 a 0TI/(V2*S«(I1)*X) 


)*«1,2S)**,4 


400 CONTINUE 

ir(x,ce, 4,> GO TO 3?1 
IFCSi.CE, 4,/X) CO TO 371 
IKX,l.E, 0,05) GO TO 372 
II tS3,6T, 1,0) GO TO 372 
ISOLATED LINE 

XUANR a X /(I, ♦<!, 57079 a X 
V2* S3aSMZ*XLANR 
CO TO 370 

STRONG line ELSASSCR BAND HODEL 

371 V4 a S3 ASSRU X /2,) 

V2 a SMZ*ERrfV«J 

CO TO 370 

: WEAK LINE HODFL (NOT LINEAR)***AFTEK PLASS 

372 V2a(l,«CXP(«S3*X))*SHZ 
370 CONTINUE 

1370 TEHHl a V2ABEf(lI) a88(11) 

TERH2 a •85(1 ) aV2a38(II) 

TERH3 a HM(n)*SHZ ^ 

TERH4 a V9AWAULF*S8(1 I)a(WALLN«AM 1NUNALLN»V2)) 
FlrtT(lI) a TERM1 aTCRH2aTERM3aTERH4 
375 CONTINUE 


c End Of eoui«allnt width calculation 
c 


70 do 500 LLal,NV 

FIIHT(LL) a fllMT(LL) 
FIIPT(LL) a FHPT(LL) 
FIHT(LL) a 0, 

500 FIPT(LL) a 0, 

6500 continue 


A XNOL(IE) a FIMT(LL) 
♦ XNOUIE) A FIPKLU 


DO 303 LLal»NY 

OIP(LL) a fllPT(LL) • fXPCLL) * CFIL 


RADCL36 

RADCL36 

RADCL36 

RADCL36 

RADCL36 


RADCL30 
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OIH(LL) = Ulrtiai.) - FlM(Lt) « CHL RADCL57 

FlIFf(LL) s 0, RADCL37 

HIKiaD s 0, RADCL37 

TLC»(U)-TUf.i‘{L; )*07P(U) RADCL37 

303 TLCM(UI.) = 7!.r:m,U*0l'^(LL) RAUCL37 


VI s FHVP{iO-H(VH(k)*CHI. 

CO 250 IslfMY 

IF(I,tQ,iOtX(l)) OUTUK.l) s OIP(l) 

IFU,fQ,LOEXU’)) OUTI.(K,2) = OIP(l) 

IKUEO.U'LXrO) OuU(K,3) s OIH(l) 

250 CONTI iJ'Jt 

ir(«LG,EC,n GO TO 50 
IF(KH(l7),r.Q.?) GO TO 50 
lsMIN0(NlC»10) 

DO 51 LL»l»IUC 

IVsMCN(LL) 

StU)sDlP(IY) 

51 SKIUsDImUY) 

«F.ITE(n, 10 <» 0 )K,Fhv(K),( sau»LL=i»i) 
lF(NIC,GT,l(i) wRnKtJ,l091)( 5(Ll.) »LL*l 1 »NIC) 

»<RJiTt(M,l09i|) ( Sl(UL),U.sl»NlC) 

WRnt(M,l095) 

SO CONTINUE RADCL37 

C 

ir (KRa7),CO,2) »?f-TURN 
IF(NLG,E0,l) GO TO 7o20 
00 S2 LLsWHlC 
lYsNICNtU) 

SCUUsTLCPUY) 

52 SI(L’m)=TLChC1Y) 

«f<nE(N»lC9i;) ( S(LL),Ll=l,NIC) 

NR1TC(N,10‘>3) I 31(LL)»LLsl,NIC) 

CO 70 702J ; 

7020 KW17E(N»T050: 

KRITE(M,IC51) 

WHI7E(N#i053)HEAO(ULO),HEAO(ULBT,HLiO(l5),HFAD{ULUL)»HEAO(l5)» 
i HCAD(15)/HEAP(ULL)rHEADn5),HC4D(UC'»3}fHEA0(lLC«3)*HtA0(UC«3)| 

2HCAD(I.LCt37 

VsO, 4 

Vl«0, 

DO 7017 XaJ.NHV 

XF(KR(e),Nfc,n GO TO 70X8 j 

V5sl,2«/FHVP(1) 

Y6aX,20/FHVnCI) * 

GO TO 70X9 
70X8 VSsFHVMCn 

V6sFHVP(I) : 

70X9 V350UTL(I»l)/tVA-V5) 

V«sOUTL:I»5)/(V6*'V5) 

V8VtOUTUX»l) ; 

VXsVl40U7',(Xi3) i 

70X7 WRITKNf 10S2)l»VS»V8rV3fOUTL(XrX)rV0iOUTI.(Xf3) { 

NRITECNf XOSO) V,VX f 

702X RETURN RADCC36 

END 



PKUGKAN HAl(>l(lGiUM,;5:jTPl!t,TfcPt5=lNl»U7,TAt>t6aOUTPlJT) 

Ci)M:inf!/f!Uf-(:0M/A*Mi2i> 125) 

Crj'iMOr;/lMCnM/K.^ ,K(U10) »KP( 10) *M,N 

CnMMOi!/l l.lh/HVU,-''n),Kl,K/,7Lf.H(p<'>),TLCP(2b), NX1,1A(9) RADINO 

l^HIrX inLi.'OO.firi'Cr^O),! XPti(200) »XH(20) 

CnMm):|/UAl)/AhV(bO),.'.i'VJ.(2b),ri,C?,C3*CU.Cb,0£LTA,l,PS(160),FK200)» RAD 
1 KHV(2S),I .tvr (*> 0 ),» iiv-C 2 'i),rHVP(?S),l IHi (2'j),FIPl(2b)»Hi»FL2»ri,6, RAO 
2Ftf;i,GA’U’(?00),t.f MU.0)# NAlS,RBl.P,NO(200)»NlCfNICN(2 RAO 

5b).«'ll'tVt ,;'MV,l;U(2->)»'.V,Pft»S(20),lH (20)»M)l (25) ,AMOU» 

U VDU7,YY(20).C.ASf (J!,).THSwCiO)»TMSWLC25),TW»TOB . 

^,K»AD,t f ACT ,Plt(* 

roHKUN/I.AOCntV TT(?O)»Vh..(2O),HM(2O)»SP(1»20»8) 

1 ,TMr.lA»5Vl,SPl»:SRlfHS 

COMMON/! l)PCOH/SP2/(. i* 1 ) / 1 5. SPZ2 (70 ) , P , SP25 (U80 ) , 7 » SPZfl (2fld) » VN (60) 

) ,Vf4-.'(-.o,tO,£P/.b(lH7)»IUP2»! AMUA(60)»1 AMOB(60)/IUP1 

2 rWS,l\s: 6(5),KIN,Kni)T»KAR(20)»FSC7(6ti) 
CUMf*ON/pA;PCn!)/PA(2<!),K'Hil(?0).SC(20)»CAPC(20) fOR(20) »XMUl(20) 

1 ,yiH!il( 20 ) 

DIMtNSinn »-M(i 2 ^, n 
COUlVALiNCt (f«(l),A»^((l3)) 

22^1 rJ»PMAT(A 6 ) 

22b FORMAT (flt 10.3) 

226 Format ( ii?) 

227 F1)RMAT(M1.10,0) 

226 Ti)«MAT{J12,tri4,6,5ri0,3»l0X,A6) 

KINrb 
KOUT - 6 
Mnb 
NS 6 
CC = 1, 

RFACT e 1, 
on bOOO Jcl»20 
VMWCJ) = 20 , 

TT(J) s 3000, 

DO bOOO Ul,30 
bOOO FR(I»J) a ,0333333333 
Ta 3000, 

CALL KAOIN 
77 CALL CACjJN 
C2 a FLl*l)tL7A 
N0P»2 

CALL NODfcN(NOP) 

CALL C0NTN2 
DO 2 lsl,NY 
TLCH(l)aO, 

2 TLCP(n»0, 

ZF(KR(«),MF.,2) call L1N72 

C EVALUATt NET FLUX (UR INTENSITKS) IN 07U/F72-SEC {-SlfH) 
on I l 8 l,NY 

i OR(ns,8ttOb*(riPl(n-FlMl(I) + TLCP(I)<*7LCN(n) 
lr(C«) 16,77 , 16 
16 C()N7INUt 
STOP 
f.NO 


c 


SUBROUTINE HU(HV^XAPNU) 


C 


C 


c 

c 

c 

c 

c 


c 

c 


c 

c 


c 


INTLGIR BtTAfBETb 

CnHMON/CONTH/NC»C(.'.*O),NSBN,Z(;»0) ,HVG( J0)rK8(20),IIS(16),N!t , 

1 HVT(30) »CSS(2(I0),IIL(30),1SS(30) ,IUBN(2Q), 

2 XinN(30),BETA(30),BtTB(30).NSTl,NT#Xl.<>(2a0)»JlS(30), 

3 TTHRir .«;{ 50) »CQtF A (30) »COLf- 0(30) »1ZZ 

COMUON/tOPCOM/SRZZ(>‘6l),lSOUM.5PZ2(70)|P0UM,8PZ3(a8O)/TOUM, 

1 SPZ«( 2 iiO)rVN( 60 ),VNll( 60 /e) 

COH»^'ON/lNTCO«/KR(?0),KO(10)»Kf (10)fM,N 

COHMUN/LlNt/S6(896), XI (200) /C 3(200), S7(2S) 


C0MM0N/N0NC0M/AM(J23,123) RBL 

COMMON/PRPCOM/PR(20),«MO(20),SC(20),CAPC(20),OR(20) 

COMHON/BAO/ Sl(8l),tPS(l60),S2(225),FHVC(SO),SS30(30‘l), 

2 GLE(160) ,NAtS,S3(?27),NlHVC,SS<iO(26) 

3 ,NY,PRES(20),Ttb(20),sa(2S) ,XHOL, 

(I YOEtT,YY(20),Sb(92) 

5,NRAD,PrACT,POP 


OllENSUlN 
D1 Hi- NS) ON 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 


kE(6),XKT(l) 

1S(20) 

RM(3),BK(i),A(3),8(3),C(5) 
T( l),XAPNU(l,l) 

CEP(6) 

XAPO(lb) 


DIMENSION 

1 DSL(123,i) , DA(123,1) , 

2 H)H()23,1) , AT(123,I) , 

3 01X0(123,1) , AFT(123,l) 

0 SL(123,l) , RR(;(123,1) , 

•i TCN(123,1) , AIN(123,1) 

fe XNN()25,1) , X0(t2i,l) 


0^0(123,1) 
K0(123,l) , 
, ABE(123,1 
AIG()23,1) 

, AC()2i,l) 


, AB(123,1) , 
6AM(123,1) , 

) , BFT(123,1) 
, ATT(I25,1) , 
, AHT(l2i,l) 


I 


EOUl VALENCE 

1 (DSL(l),AM(i)) , (OAU),AM(10«)> , (DWD(1),AM(2<IA)U , 

2 (ABU),AM(2667)) , (WlM( I ) , AM(<J921 ) ) , (AT(l),AM(A94l) ) , 

3 (WD(1),AM((|9M)) , (GAH(l),AM(09ai)) , (DLXQ( 1 ) ^ AHtSOO) ) ) , 

d (AFt(1),AM(S020)) , (ABE(l),AM(S270)) , (BE T( 1 ) , AM(73Bl ) ) , 

5 (SW(l),AM(7«0l)) , (HR(J(U,AM(7d(»l)) , (A1G( 1 ) , AM(8671 ) ) , 

6 (ATTtt)»AM(«69|)> , ( TCN( 1 ) ,AM( lOldT) ), (AXN(I) ,AM( 12670) ) , 

7 (AC(1),AH(12610)) , ( AMT( 1) , AH( )26i0) ) , (XNN(l),AM(996d)), 
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m 






o ri o o r> o r> 


A (XQ(i)»AM(lOOO<0) 

C 

EOL'IVAUfcNCE (K3(1),IS(1)) 

C 

DATA 

DATA RK/,75>,2, j,6,/ 

DATA A/-, lay#-, 120, -.117/ 

DATA 0/,2Ul^>», 600, 1,170/ 

DATA C/-,070,0,,0,/ 

data EE/0,,1,,2.,«.,6.,B,,10,,20,/ 

DATA C£t*/0,,l.,2.,3,,«.,6,,8,,l0,/ 

Al.OGT(Q)aAi.OG10(li) 

C 

Isl 

HY s 13,595 
ISO = ISDDM 
ISP :i laO ♦ I 
ISP2 s 180 ♦ 2 
DO 3D0 1*1, NY 
380 XAPNUa,L) s 0. 

Cl = 6,292t-2C 
JHV s 1 

350 HV3 s HV*HV*MV 
PI s 3,iai6 
SQA=7,25E«16 
XLAP.5l,2a/HV 
XIN s 0, 

V = HV/,a3l 

IF(V,GT,6a.) GO TO 3520 

V s tXP(V) ■ 

XIN s {l,a92t*C5)*(l,-l,/V)/l(XLAH»*5)A(V-l,)) 

3520 CONTINUE 
ONQ=0, 

ON2PSO, 

UOP FHEQUrNCY U-F AND F-F ■ UNTHJBUTIONS FOR ATOMS AMO 10NS--« 
«FKnM lUBLKMAN AND NORMAN 

lF(NSBN,fcQ,0) GO TO 935 
IJ s 0 

DO 62 11*1, NSBN 
12 * lOBNdl) 

Z2 s Zd2)*Z(I2) 
tP a HV/Z2 
DO 777 «s2,8 

IF(EP*CtP(K)) 779, 770, 777 
777 CONTINUE 

XIUI) a XlSdJfK) 

CO TO 773 

774 XldnaXlSdJ*K-l)*lXia(UTK)*XISdJ*K-l))/(CtP(M)«CtP(X»l)) 

I *(EP-CeP(K-l)) 

773 IJaU+e 
62 CONTINUE 
935 CONTINUE 

SET UP FOR CONTRIBUTIONS PROM INDIVIDUAL LEVELS 
IJ « 0 

IF(NIL«EQ,0) GO TO 835 
DO 35 IN-l,NIL 
VaHV-HVTdN) 

IF(V) 9195»57,37 
9195 CS(IN) a 0, 

GO TO 73 


174 



37 on 77 Ke2,8 

IKV^U(K)) 7«,7«»77 
77 CONTlNUt 

CS(IN) s C3S(IJ+P) * l,t»l6 
(;li ui 73 

7« CSaN):;(CSS(IJ + K-l) + (CSSf IO*K)-CSS(lJ*K-l))/(f.t{X)*EE(K-U) 

73 IJ s iJ ♦ 8 
35 CO‘4T)NUt 
835 CONTINUE 
C 
c 

C STAKT spatial LOOP 

c 

c 

00 58 ISJ,NY 
00 880 Jsl,ISP2 
680 BRG(I«J) a 0, 

T(L) s TtE(l) 

XKTa) = 7Et(l)*POP 
Tl s XKT(L) 

XXsHV/XKHL) 

V 8 EXP(*XX) 

rpc 8 j,-* V 

DLEPC s *-V*XX/LPC 
OBN 8 0, 

JK ss 1 

iFINSHN.EQ.Oi UO TO 625 
DO 80 Ilsl^NSBN 
12 s lOBNUI) 

ICH = Jia(I2) 

22 s 2(12) * /112) 

V 8 AMINI(hV#HVG(II)) 

V2 8 I, 

IFITU) ,GE, TTHRES(II)) V2sCOEF AUn+COEFbdl)*! (L) 

7260 CONTINUE 

V5 s (V-XIQN(12))/TJ 
IF (I2,E0.IS(JK) ) GO TO 700 

V« s XNN(I2#I)*2,*XQ(I2»1#1)/X0(12,I) *TEt ( I) /HV3*Z2*XI ( 1 I ) • 
I (EXP(V5)*Cn *V2 

BRG(I,n s BHG(I»t) •* V0*( V5 ♦ 0LX0(I2,I) «• 0LXQ(l2"l»T) ) 
GO TO 4000 

700 VO s XNM(I2,I) * TEtn)/HV3*Z2*XI(II)*(tXP(VS)*cl) *V2 
BRG(I#n = BRG(l»n • V« * V5 
JK s JK ♦ 1 

4004 OBN 8 OBN 4 V4 
lF(lCH,(iT»ISO) GO TO 4001 

C BASE SPECIES CONTRIBUTION 

6RG(I«ICH42) s HRG(I«ICHt2) 4 V4 
GO TO 60 

C NON BASE SPECIES 
4001 on 4005 lAB a },1S0 

4005 BRG(IiIAB42) s BRG(1«IAB42) 4 V4* VNlKlCHr lAB) 

BRG(I>n 8 BRG(Id) 4 V4*7CN(ICH«180>I) 

60 CONTINUE 
C 

825 CONTINUF 

C CONTRIBUTIONS FROM INDIVIDUAL LEVELS 
C 

DIS a 0| 

IF(NIL,rU,0) GO TO 645 
DO 440 INsl/NIL 
JJ 8 IJL(IN) 

JJJ a ISSUN) 
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ICH = JIS(JJJ) 

VO s -tPS(JJ)/XKT(l,) 

V s CS(IN) * 

V! a GFMJJ)/XiJ(JJJ,I) 

V? s EXl’(VO) 

Vi a V*Vl*V2 
U15 a l)IS V3 

UKG(I,n a RROdrU " V 3 *<l,*V 0 ♦ DUXCUJJJ#!) ) 

1KJCH.GT.IS0) Gll TU «I010 
C 8ASL CPltCIED CU’lT t? I bUT IONS 

BHG(I,lC.H + 2) s ♦ VJ 

GO TO «t‘iO 

<10 JO 00 fJOll I4» a 1, ISA 

0011 BRG{1,1‘>I3*2) = « Vi* VMU ( ICH, I AB) 

BRCdd) s OHG(l,n ♦ Vi*TCN(ICH»ISO,l) 

<»'J0 cnuTiMii: 

B<4S CUNTlfiUf. 

c 

C tONTRlbUT IONS F(jR INDIVIOOAI. KOLKCULAR BAND SYSTEMS 
C 

C NOTE MAX TI-MPfKAU'Ul LIMIT FOR MOLECULAR CURVE FITS 
T(L) = AHINUT{|.),1'.>000,) 

XKT(L) = AMHn(Xf.T(L),l,292) 

JI a nsTJ+1 

IKIlS(l)) 307'--., iO/S, 7001 
7001 AU2P a XNN(JI,I) 

Jl a .11 ^ 1 

C,i...N2+ CfHilUIHUTION JKOM nlfltRMAN ANO MN, 
b02 IKHV-2.23) iOT^-fSoTa^iO/tl 

3074 IF(Hv-u.'46) 3073,50/3,3075 
3073 IF(HV-5,ib) 3004 , 30lt-'J , 5063 

30B/J Om?Ps( A4,'2P*} ,K1 ni * 4 ft,** r«n ,I>7fi4R,77*HV»n,9)*MV**?) 

GtJ TO 3075 

30C3 On2Ps(An 2P*1,1 -19)4 1 o.**(-49.06b*0.5l6f’Jr..o2*T(L)-0,8i577E*06*T(U 
l**2 + HV* (30, <il6»0.i028St-v2*T(L) 40,1 364«t»06*T(L) **?-)♦ (HV**2) *(*4,5 
266fl4 + 0,«3903E-03*T(L)-0,l9543t"0 7*l (D**2)) 

3075 CONTINilt 

1F(1IS(2)) 2525,2525,7003 
7003 ANO a XNN(JI,I) 

Jl a JI ♦ 1 

C,,,.,NO ULTRAVIOLET CUNTPllUITION FROM BIBERHAN AND MNATSAKANYAN 
b06 IF(HV-15,5) 2511,2511,2525 
2511 IKHV-5.0) 2520,2520,2513 

2513 IF (HVrb. 65)2514, 2515, 2515 

2514 0NOs(AN(J*l,E-<l8)M0,0**(*>4,2673tHV* 0,66267) 

GO TO 2525 

2515 IFtHV-lO,) 2517,2517,2516 
2517 l)N0sANn*l,9t-l8 

GO TU 2525 

2516 0NUs(ANn*l.E-l8)*(B9,75-19,125*HVFl,033*HV**2) 

CO TO 2525 

C.J...NO VISIBLE CONTRIBUTION FROM BIBERMAN ANO MNATSAKANYN 

2520 IKHV2.7) 2525,2521,2521 

2521 ONQ8(ANn*l,fc-l«)*10,**(-3,4B20*0,ll509t«02*Ta)40,l5999E"06*T(t)** 
i24HV*(-2,37a440,10952C»02*T(L)-0,I0099F>06*Ta)**2) + (HV**2)*(0,575 
249-0, l7249E«03*T(U + 0,l3674t -07*T(UA*2)) 

2525 CONTINUE 

C OXYGEN molecular CONTRIBUTION 
17 00280,0 

lF(lIS(3n 18,16,7005 
7005 A02 8 XNN(J1,1) 

JI 8 Jl ♦ 1 

613 IFCHV-3,) 16,1305,1305 
UOb IF(HV-7,) 1301,207,207 
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a07 IKHV-9.2) 20flf?0B,lB 

206 Da2 = AU2*<10 0,0*3;jUTn/.NH(0,0975/XKT(L)))*nXP(-TANH(Of 195/(2,0* 
IXKT(L) ) )*( (HV-P,' -s)/0,a0S)**2)/2,687fc>l9 
cn TO IH 

C,:...SHUMAN-KUI'tGE BAUDS FKOM BIBEBMAN AUO MNATSAKYN 
not DU2-(AO?*l -16)* tO,*»(-23,«ri + 0,U0509h'0?*Ta)-0,2«54St>06*T(l,)** 
i;.' + HV* (6,2) 02-0, lCS'-.'f--02*T(l ) +0 , 7* T (U ) **2) ♦ (HV* *2) * ( -0 , 4 1 6 

2b3 + 0,y l490^ -0a*T(L)-O.471 iSt -06*7(1 )**i2)) 

C NITROGtN MOLtCUl A'; rn‘!THlBUTlUI» 

)H DU2=0.0 

17(115(4)) 2010,2010,7007 
7007 AN2 = XUN(.n,I) 

JI = J1 ♦ 1 

, 6l« IF(HV-6,b) 2560,209, 200 

209 IF (HV-12, 77)210, 210,2010 

210 IF(HV-10, 5)211, 21 1,212 

C,;...N2 BlKGF. HD(’FIFLl) DATA FHOM APPU i( »9D STUNBFRK FUR HV LARGER 
C Than 10,5 F.V - AND MU)M ALLFN f1, AL, rUH KV IFSS than 10,5 EV 

211 DN2s(AN2/2,52t+l9)*! XB(2,S026*(-14,871*C,39566F.'-03*T(L)*0,66911E-0 
17*T(L) **2 + HV* (-o. 992;;6F-01*0.61 Ifcfii.fOi*! (l.)-0.41260f-07*T(L)**2) 
?+(HV** 2 )*( 0 , 12305-0, «63i.2r.-0il*T(L)t0,2H35.U.-0e*T(U**2) ) ) 

GO TO 2010 

212 DN 2 s(AN 2 /, 7 . 52 t + l9)*t XP (2, 3026* (-39, 3C6+0 , 7l 7 &17.-02*T (L ) -0 ,4bl57f-0 
l6*TiL) **2 + HV*(« , 1 032- 0,7o9l9L-03*ni.) +0,524 <127 -0f*T(L)**2) + (HV**2) 
2* (-0, 5670 lL-0 l + O. 16?26L-0<1*T(L )-0, 12 76U**06*UL )**?.)) ) 

GO TO 2010 

C,^...N2 LOW FiiFOUtNCY BANDS (1+ AND 2+) FROM BlBf.RNAU AND MN, 

2550 1F(HV-U,‘.,) 2551,2551,2010 

2551 lF(HV-0,75) 20 1 0 * 2552, 2552 

2552 DM2s6,L-20*AN2* 10, ** (-1 ,+2,7ft»HV-0,B19*HV**?-2,69b/XK1 (L) )+2,E“17 
1*AN2*10,*»(-W,l‘l*6.9 N»HV-,i,i32*HV**2-3,2o/XtsT(L)) 

C CO CONTRIiUJTinN 

C cn FITS CHLCKFO AGAINST WOODWARDS DATA JAN-66 

2010 DCU=0,0 

1F(1IS(5)) 116,116,7009 
7009 ACt) = XNN(JI,1) 

JI 5 JI ♦ I 

bis IF(HV-4,27) 110,220.220 

220 IF(HV-:-lO,6) 221,221,1 16 

221 IF(HV*7,75) 2000,2000,2001 

2000 XlG=l,492F + 05*() ,-F.xp( -HV/XKT(L)))/(( XL AM**5)*(tXP(HV/XKT(L ))-!,)) 
ARGa-17,09+1 ,3751-05 *T(l.)-, 05 Jfc*'06iT(U * *2 + XL AM* (t66, 94+11, 76E«»03* 

n(U"0,767h-06*T(L)**2) 

DCUaACU*LXP(2,30259*ARG)/XlG 
GO TO lie 

2001 DCOsA'jO*EXP(-2,30259*(l27,2^ia36,*XLAM+4620,*(XLAM**2)))/XlN 
C HYOROGEN MOLECULAR CONTRIBUTION 

C,..,,H2 LY("AN AND WLRNER CONIHIBUTIUNS FROM NEISNtR 
116 OH2SO.O 

IF (1IS(6)) 2536,2536,7011 
7011 AH2*XNN(Jl,n 

lCHsJIS(JI) 

JI 8 JI ♦ I 

bl6 IF(HV3,05) 2538,222,222 

222 ir(HV-25,)223, 223, 2536 

223 IFCHV-15,50) 1 023, 124, 124 
.1025 IFtHV-^iO,) 2530,2531,2531 
2531 IF n(L),Gt,3000,) GO TO 9125 

OH28(AH2*l,F-16)*10.**(-l20,73+0,175l5E-01*Ta)»0,87076F>06*T(U** 
12+HV* (1 7,526-0, ?4b54l.-P2*T(L)+0,l2097F-06*T(L)**2)+(HV* *2)* ("0,625 
227 + 0,66154fcr*04*TU.)-0.4l002F-08*T(U**2)) 
DDDLTsDH2*(T{L)*(0,l7515F*01-l,74|b2t-06*TU )+HV*(-0,24654t-02 

1 F0,24194F.-06*1 a)) + (HV**2)*(0,d6l54t-04-0,6i604L-06*UL))} 

2 *2,30259-1,0) 




on TO iiv 

<>120 DH2s(AH?*l,fc-l9)*10,i'.*( 1 1 .onto, ) -0 , 11 /89f.-06*T (U **2 

,20:S9-n,lll60L-Oi*T(L J*0,5l.'h7fc-O7*1 (L ) **2) + (HV**2) * ( 0 ,3299 
Ut-01 + 0,f'9a72r-0S*T(n-O. 1 7 770L-08*Ta)**2)) +0 h 2 
ODDLT^l)H2*(T(L)*(0,^:J6J';L-03-0,2i'WC'^-06*T(l )tHV*(-0, 1 31bSt«»03 

1 ♦0,620i«t<»07*T(Ln*(HV**2)*(0,6927ct--05fO,3S050E»08*T(L))) 

2 *2,30209-1,0) 

GO TO 119 

2030 IF(HV-6,2) 2532 , 2b:.3 , 2033 
2533 DH2=AH2*2,5E:-ie 
1>DDLT=-DH2 
GO TO 119 

2532 IF (HV-b,3) 2539 , 253<i , 2535 

2535 DH2s(AM2*i.E.-10)*lo,0**(-207,78*0,5'i20faE»01*Ta)-0,a«098t-05*T(L)* 
l*?+HV*(6<i,917-0,17946r»-0l*Ul ) + 0, I<i073t-05*T (L)**2) + tHV**2)*("5,37 
267 + 0, 1 956 7E -0?*T (I ) -0 , 1 1 C72E -06*T (U **2) 1 

0DDLT=0H2* n(U)*(0,55206E -0 1 -0 , 86 19(.t.-05*T (U +HV* (fO, 17998C-01 

1 +0,28996h-05*T(L) )< (HV**2)*(0,l9bC7E-02''0,23799t-0b*T(U))) 

2 *2,302b9-.l,0) 

GO TO 119 

2539 OH2s(AH2*l.f-J8J*tO,0**C-5,2820-0,?7«12f •02»Ta)+0,2071bt.-»06*T(U* 
l*2+HV*(-b,1687tO,2u998f"02*T (U "0 , 1603lh»06*T (1. ) **2) + (HV**2) * ( 0 ,96 
2369-0, 39072E-03*! (U) +0. 21 ) eofc-07* T (t )**2) ) 

OOOLT = OH2*na)*(-0,27812L-02 + 0,91930r-06*T(l.)+HV*(0,299a8E-02 

1 »0,32062t-06*Tan + (HV**2)*(-0,39072E-03 + 0,92360t-07*T(L))) 

2*2.302b9-l,0) 

GO TO 119 

129 Oh2sAH2*10.0**C-17,19+0,062*(HV-16,0)) 

000LT=f0H2 

119 DRG(I»n=euria, l) + Dl)OLT*X>tOL 
ir (ICH.GT.ISO) GO TO 2536 
ttRGd » ICM + 2 jsdK[J( 1 » lCH + 2) fUH2*AMUl. 

GO TO 2b38 

2536 DO 2537 IAHsl,lS0 

2537 BRG(l»lA8+2)=8KG(I , I AU+2)+0H2*VNU(lCH,lAB)*XM0L 
BRGa,l)sBRG(l,l)+0«2*TrN(lCM-«lSO»l)*XHOL 

2538 COMTINUE 

C CARBON KQLi’.CULAR CONTRIBUTION i 

OC2s0,0 

ir (US(7)) 1303f 1303,7013 
7013 AC2 a XNN(J1,I) 

J1 s J1 + 1 

617 ir(HV-l,6) 1303,229,229 i 

229 IF(HV-6,0) 225,225,1305 • 

C.;,.,PREYMARK { 

'225 0C2*AC2*( ♦l0,0**(*25,91+i,96*HV 

l-0,096*HV**2)) 

IF (HV-5,35) 125,126,126 ? 

C,,,,,FOX-,Hr.RT2BERv' 

125 0C2»DC2+AC2*l ',0**(-27,09+9,295*HV-0,9809*HV**2) 5 

DD0LTa-DC2 ? 

IF(HV-ie) 1300,120,120 ? 

c * Swan 

I3c5‘dC 2«T» ♦(l,E'‘l''*AC2)*10,**(-51,199+0,59285E-02*Ta)*0,9322E-06*Ta 
n**2+HV*(9C,Bo9-0,97250t-02*T(U+0,35379E-06*Ta)**2) + {HV**2)*(-8, 
20e92«0,95369E-03*Ta)-0,7i682F.«07*T(U)**2)) 

OO0EtsO00LT+OC2ST*(T(L)*(0,S9285C-02-0,8699E-06*Ta)tHV*(»,97230E* 

102+0, 7075RF.-06*T(U) + (HV**2)* to, 95369t-03^l,97369E«07*T(U))) 

2 *2,30259-1,0) 

DC2»DC2+DC2ST 
CO TO 120 

C,.,,,MULLIKAN 

126 OC2bOC2+AC2*10,«*(-16,7+2,*(5,35-HV)) 
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DD0LT:5-DC2 

120 lUfGd, ! ) = 6rtG(I, l)*ODnLT»XMOi 
IF nCH,GT,lS0) (.0 TO 1 ,S 1 0 
0«G(1, lCh4 2)=t!»^&(I , lCH + 2) + DC2*XM0L 
GU TlJ 1503 

1510 on l-i 02 IAD=1,I50 

1502 'iR(.(i,Uf*-*2)=-'»G(I , UfU?) + l)r<>*VNU(lr.H,l‘D)*XMUU 

BRG(i, 1 )=GUG(I, 1 )-i|)C2*TCfJ( ICH-ISO, 1 ) *XMOL 
1505 COMTIMJl 
C CN CuMklBUTinM 
OCNrO.O 

iF(iio(a: ) 7on«,7oo«,7orj 
7015 ACX! = XK,W(JI,1) 

JI = JHl 

bis IF(Hv-0,B) 121,220,226 
226 1F(HV-6,1 1227,1227,121 

1227 DCNs(ACM*l,F-19)*in,**(-l ,3902+0, 196R2L-03*T(U) -Oil 0678E-07*T(U)** 

12+HVi (6,6671-0. l0Ua5.-02*T(U +0,6076 it '07*T(L)**2) + (HV**2)*(«.2|90'> 

27 + 0,05ol2t-03^T (L) -0,260 331.-07*1(1)* *2)) 

IF(HV-2,) 121,1226,1226 

122B DCN=DCN+ACN*10»**(-«1,«6+13,76*HV-1 ,V«6*HV**2) 

121 DCcO, 

7000 C(PlT)f.".ifc 

C NEGATIVE in*J CllNTRltiUI IONS MU 06 

C.,..,C- COriUlHUTlON FROM StHAN ANO HRANSCOMS thin 

XCM = 0, 

IF (11S(9)) 0605,660-3, 3701 
3701 ACMs XNN(J1,1) 

ICHsJlS(Jl) 

Jl = JI+1 

6601 IF(HV»t.25) 6600;6602.-660f? THIN 

6b02 XCM s XCM + ACM * l,i(l>l7 
BRG(l,l)=H»G(I,l)-xrM 
IF (ICH,GT,IS0) on TO 6603 
BRCd, 1CH + 2 )si;KG( 1 ,lCH + 2)+XCM 
GO TO 6605 

6603 DO 6600 lAbsl,lS0 

6600 BRG(I,lAB+2)sOK(;d, I AH + 2) + XC<*VNUdCH, lAB) 

BRGd, l)sBKCd,l) + XCM*TCNClCH-ISO,n 
6605 CONTINUE 

6b00 CONTINUE THIN 

C..',.,H- contribution F*‘ > CHANORASEKM 4R and ELBERT MU 06 

3700 XHM s 0, 

IF (IlSdO)) 6506,0506,3703 
3703 AHM B XNN(JI,I) 

ICHBJIS(JI) 

JI s Jl+1 


604 

IFCHV-13,6) 2500,2500,2502 

MU 

06 

2500 

2501 
6500 

IF(Hv-0,7S) 2502,2501,2501 

IF(HV-1,3) 6500,6500,6501 

XHM = (AHH*l,fc-i7)*(-4,bl+7, 15*HV) 

HU 

17 

6501 

CO TO 6506 

lF(MV-6,) 6502,6502,6503 

MU 

07 

6502 

XHM s (AMM*l,E-l/)*(6,765tl,7*HV+0,1258*MV**2,) 

HU 

07 

6503 

GO TO 6506 

XHM a (*HM*l,E»l7)*(3,5-0,535*MV+0,0225*HV**2i) 

MU 

07 


6506 CONTINUE. 

eR6(I,l)sHRG(I,n»XHM 
IF dCH,GT*!S0) GO TO 6504 
eRC(I,ICM+2)sBRG(I,lCH+2)+XHM 
GO TO 6506 

6504 on 6505 IABk1,IS0 

6505 BRGd,IAB + 2)3BKGd,lAG + 2)+XHM*VNUdCM,IAB) 
BROn,l)»BRGU,l) + XHM*TCNdCH^180,n 
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6b06 rn*(TlNUt 

dbO?. ' MU 07 

C ti CLfJTRlBUTinN 

r. 

3702 DC3 - 0, 

If (IlSdin fcbl2,6bl?,3/06 
3706 iKMV"3,b) 3710,3710,570b 

3710 ir(HV-2,6) 370b, 3711, 5711 

3711 AC3 = XNMJI,!) 

JCH=Jia(JI) 

J1 = JUl 
5712 COfTINUt 

DC5 5 0C3 ♦ AC3*3,E*17 
yHGU,l)sBRG(I,l )-0C5 
IF (ICH,GT,:S0) no TO 6S10 
BRSa,ICH + 2)sRRC.CI,lCH*?)+UC.3*XM0L 
GO TO 6b 12 

6510 DO 6bil lABsi,ls0 

6511 BRG(I,IAb+2)aBRG(I, lAB+2)-U)r.3*VfiUnCH,lA8)*XM0L 
BRGCl, l)sBRGn,l)-fOC3*TCN(ir.H-lSO,l)*XMGL 

6512 CUNTlNUt 
370b CUNTlNUt 

C 

C SIO MOLf-CUlAR CONTRlPU' ION X(S1G!^A)«A(PI ) TRANSITION M0G12/72 
C MINUS 16,0 HAG BEKN AOuLD TO THT CUtfUCItNTS Of THE FIT TO LOG MU 

C TO CORRECT FUR THt NOKfUUZATION AND DUtS NOT APHEAR AS A SEPARATE 

C FACTOR IN D5IO 
DSinrO,0 

IF(1IS(12))1799,17<)'),1701 
1701 ASIO=xnN(J1,I) 

1CH=J13(JI) 

JlsJl+1 

TTM=T(L) 

IF (T(L),GT, 8000,0) T{L)sB000,0 

1710 lF(HV-4, 1)1799, 1711, 1711 

1711 IF(HV*6.2)1712, 1712, 1799 

1712 If (HV-4, 62)1720, 1/20, 1713 

1713 lF(HV-a, 85)1721, 1721, 1714 
17M IF(Hv«4,9b)l722, 1722, 1715 
1715 lKHV-5,70) 1723, 1723, 1724 

1720 OSlOsA5IO*10,0**(«2ie,64476*0,048960962*Ta)«'0,329b2003t*OS*Ta)*<' 

1 24HV* (89, 065844-0, 02253269/*! a )^0,lb528H8E-05*T(L)**2)T 
2(HV**2)* (-9,93051 C5*0,26042766c.*02*Ta)-0,183076ilE-06*T(L)**2)) 

C OOOLT la THt DERIVATIVE Of DSIO WITH HESPhCT TO NATURAL LOG OF T 
OOI)LTsOSIU*(T(l )*(0,0't096096a-0,65904006E«'0'.*T(L)* 
lHV*(-0,022532«97-f0.3l056296t-05*T(L)) + 

2(HV**2)*(0,26042766F-02-0,36615262 -C6*T(L))) *2, 302585093-1,0) 

GO TO 1750 

1721 D8IOsASIO<»l0,0**(4011,5523-1.6253«12*T(L) + 0,14197259t-03*T(U**2+ 

IHVA (-1723, 0218+0. 69542522* T(L)-0,60703645t«0<»*T('.)**2) + 

2 (HV**2)*( 184,1 0076-0, 074355818*TtL)*0,6flB64507E-OS*T(L)**2)) 
D00l.Tfi08IO*(T(l.)*(-l. 6253812*0, 2839451 8t-03*T(D* 
1HV*(0,69542522-1,21407290K-04*T(L))+ 

2(MV**2)*{-0,07435S«18* I, 29 7290l4t-05*UL))) *2, 302585093-1,0) 

60 TO 1750 

1722 OSiasAS10*iO, 0**U3/11, 552-5, 2261 407*T(L) ♦0,<I37«3603E-03*T (I )**2* 
lHV*(-5560, 8074*2, 1160029*1 (L)-0,l7711999E-03»Ta>**2)* , 

2(HV**2)*C563, 03368-0,21417920*7 CL)+0,17928935E-04*T(L)**2)) 

DPDlTsOSIO* (7 (D* (-5,2261 407*0, 67487206t-03*T(L) + 

1HV*(2, 1 160029 •0,3b«23998t-0i*TCL))+ 

2(HV**2)*(-0, 21417920+0, 35857870t-04*Ta))) *2, 302585093-1,0) 

CO TO 1750 

1723 0SlO«ASin*10,0** (63, 966757-0, 045491754*7 (L)+0,38947047C-05»T(U**2 
1*HV*(-33, 362126*0, 017452372*7 (L)-i,147e6l26t-05*T(U**2) + 
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f 

I 

t 


^(HV**a)*(5.3faT>il9?9-0, 16^>i06b3t-02*T(l.)*0, 139b667e£*06*T(U**2)) 
OUDLTsl)Sin*na)*(-0,0i<'»u9175« + 0,7789a09at*>0b*Ta)* 

IHV* (0,01 79b, 7372-0. 29b /?7“.i?l ,»0b*T(U) + 

2CHV**2)*(*0, l6'!30ftb3E“02tO,279l75'i<..F»06*T(L)))*2#302b85093*i,0) 

(.0 TO i7b0 

1729 DsinsA$lU*10,0**(-692.9b28S + 0, lb277203*T(U)*-0, U907S75f.«09*TCW)**a 

1 ;iiV* (230, 38067-0, Obi 03b‘i22*T(U)vO,37660093E»>0!j*T(U**2)* 
2(HV»*2)*(»19,f.09901 + 0.92bObl99b-.02*T(i.),o,3130fi990E'<06«T(U)**2)) 

ODDI T = DSin*n(L)*(0,lb2/72O3-0.228.blbOt<'OU*Ta)t 
lHV'.(-»0,Obl03bb22 + 0.7b720 086E.Ob*T(l))* 

2 (MV '*?:i*(0.92b0bl99t,. 02-0, 626 I6ft80(." 06* T(U)) *2,302585093-1,0) 

C ODOLTt-OSIU IF mu JS HELP CONSTANl WITH RCSPtCT TO TEMPERATURE 

17b0 IF (TTM.'il .8000,0) DDOLT = -OStO 
8F(ia, l)sH(<r.(I,l)+()PDLT*XI‘tJL 
If (ICH,CT,I30) GO TO 1/70 
0RG(I,ir.H+2)snwr,(I,lCH + 2)+DS10«XM0L 
GO TO l’’99 

1770 00 1775 IABsl,l30 

1775 BRGd, lAB*2)s.bRG(I,lAfi + 2)+0SlU*VNU(ir.H,lA8)*XM0L 
BRG(1, n«aKG(l,l)ADSlO*lCM(lCH-lSO,I)*XHOL 
1799 COWTlMUt 

C.;.,,0« CUHTRIRUTION from CHURCMIU , ARMSTRONG AND MUELLER 
XtlMsO 0 

U (US(U))2510, 2510, 7017 
70i7 AO'lsXMWCJI,!) 
lCHsJlS(JI) 

JlRJI+1 

605 H(HV-11,) 2505, 2503, 2510 
2503 lKhv-1,5) 2516,2509,2509 

2509 ir(HV-3,5) 2505,2506,2506 

2505 Xn‘1sAnM*6,2F-|8 
CO TO 7025 

2506 IF(MV-5,7) 2507,2507,2508 

2507 xn’1sAOM*l,E..lP/»n6,l6-0,6l6*HV) 

GO TO 7025 

2508 xnHsAOM*l,E.i8*n5.58-0,953*HV) 

C,,,.,WJTH NO n'RPfRATURt DCPENOtNCE, 0(XUM)20 LNTp*XOM 
f025 BRG(l,l)sBRGn,l)-XUH 

IF (1CH,GT,180) CO TO 7019 
0Rr,(I,lCHA2)sBRG(I,lCHf2)*xnM 
CO TO 2510 

7019 On 7021 lAHsl.Iso 

7Q21 aRG(l,lAB+2)<5BliGU, 1AIU2) + X0M*VNU(1CH,1AB) 
BRG(l,l)8BRG(l,l)tX0M*TCN{lCH*180,n 

2510 CONTINUE 

If (KR(l),F.O,3) GO TO 360 

XAPNU(I,L)sepr.*(UBN ♦ D15 ♦ XCM ♦ XHM ♦ XOM 
I TXMOL-»(0CiUPH? + 0C2TDGM+0O2APN2 + DNQ*('N2P*0C3*08l0)) 

DO 7020 JiJ8l,IsP2 

7020 DRG(I,JIJ) s LPC*aRGa,JU) 

BRG(l,n a BRG(1,1) T OU;PC*XAPNU( 1 f L) 

If (KH(13),EQ,3) XAPNU(I/L) « XARNUdiL) / HHOd) 

GO TU 38 
360 V a 0, 

If (XX, (.7,65,) V a 5090,*HV3/(EXP(XX)«1,} 

V a V/EPCaXX/TEE(I) 

VI a V/( EPC A (OBN ♦ 018 ♦ XCM ♦ XHM ♦ XOM 

I tXMril*(DCOtnH2ADC2ADCNTDO2TDN2ADN0TDN2PT0C3AD8X0)) 

If (jHV.tO,!) GOTO 3,73 

XAPNU(1,L) a XApNUdfU * ,5AHV0«(VltXAPUd)) 

323 XAPUd) a VI 
38 CONTINUE 

If(KHd)*3) 355,391,355 
381 IFUHV-NIHVC) 396,347»397 
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JMV s JHV ♦ I 

HVO = FHVi;,(JHV)-FHVr.(JHV*l) 

HV a MIVC(JHV) 
on TU iSO 
3a? rio 38S lalfNY 

V fl TEe(n*TL(-. tn* tEftn 

V S V * y,2189E-ia 

382 XAPNU(I»U = XAPNU(I,l.)/V 
355 CdNTIMUt 

DC «500 laJ;NY 
AlJdil) a 0, 

AI«(I,2) = 0, 

DO «600 JJslflSP? 

Air.(l,n a AK-Clfl) ♦ BKSdfJJ) * AIN(JJ,I) 

AK.(I*2) a AIG(lf2) ♦ BRGdiJJ) * 

<1600 CONTINUt 

DO <(700 11=3, ISP 
AIG(i.,in = 0, 

DU <(650 JJal,I8?2 
!DX a 8*dlfl) 4-JJ 

AIGd,lI) a AIGd,II) + BKGd,JJ) * AlNtlOX,!) 

<(650 CnNTlMUfc 
67C.0 CnSTlNUfc 
«5O0 CONTINUE 

lF(,KHd3) ,NE.,3) GO TO «660 
50 4655 1=1, NY 
DO 0655 Jal,JS:’2 
IDXI a 6*(J-*n + 2 
lt)X2 = 8*(J,-n ♦ 1 

AIRd.sO a ATGd»J)/RHOd) - X;.PNUd ,1. ) * ( AIN dRXl , i ) •AINdOXS, I) > 
<1655 CONTINUE 
<1660 CUNTINijr 
RETURN 
END 
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SUBROUTINE RULl 2(^HV3, lUX, JS) 
INTEGER AFTA.TAHOA 


CO‘m(iN/CON?M/NC=^Cf20),NSRV,Z(2C)»HVG(50).KA(i;P),llS(l6),NIL» 

I hVT(50),CSr(2'il)),nEaC).lS5(50),inriN(20)» 

1 XJIVJ(IO), At U( i0),BETB(i0}rNSTl*NT,XIS(240),JlS(30), 

5 nilRc5(:\0),Ci;:>A{J0),CnLFB(50),I2Z 


COMHUN/CtiRCON/SP/Z(2ai),I‘),SPZr(71) ,SF25(A8l) ,SPZa»308), 

1 VMU(60,8),SPZ’j(187),19P2,FAMOA(60)fFAMOB(60),I9P# 

2 RICH 

COHM0N/EQlC0U/Ci*Z7(6)»AA,S» /P(37),A(l«,l4i,SPZ9(2b7),TC(80) 


CnMM(JN/lNTCUM/KHl20),KO(10),KVn0).M«N 

COMHaN/LlNc/HVl (200),K1,K2,TLCM(25), TLCR{25), NXI# IA(9) RADINO 

1 »NI » XNOL (200), GUP (20.1 ),FXRN (200?, XR(20) ,KGP, INOSHL ( 12) 
2»S(200),Sl(2G'),G2(2j) 

CCNMON/NQNCOh/AH(12l,123) 


COHMON/PRPCOM/I>»(20),«HO{20),SC(20),CAPC(20)»&H(20) 


f.lJNHON/RAO/AHV('01, AHVL(2‘3)r Cl, C2,CJ»C4»Cb, DELTA, tPr( 160 ),FF( 200), RAO 
l‘-|*V(2b),FHVC(bO),J MVM(2b),FHVP(2‘5),FHlI(2b),HPIC2b),rLl,FL2,FLG, RAD 
2FLQl,l.AHP(200),ur E(lhO), NAES,NBLP,nO(200) ,MC,NICN(2 RAO 

3b),RIHVC,NHV,M'(.?i),ijV,PHrS(20),Tn (20) ,»='JL(2b), XHQL, 

4 YOELT,YY(?-0) r Jiu (l^) ,TN3A(bO),TMS»iL(2'j),t«,TOa 

b,f!RAD,PFACT,r t> 


9ITl fSlO'- ALF <(8) ,urTA(R),0EL(8),x: (8),SLA(8) 
1 , 5 L A r. V 2 : , 5 1 B S ( 8 ) , 5 f « A S ( 0 ) , S H B S ( 8 ) 

OlNf \Mi . S0RTFC(2..) 

D)lVcNhION GEG(7) ,rFF(7) 

01MEG310N OR(20,2),DH(20,2) 

OlMfN.SlON NHYDMd) 

OlHcNSIOMNF'.ZO), A(20), R(20),VI 

OlHcNSTON F0INV(20).F2(20) 


,SLH(8),3HA(6),SHB(8)HUU 01 


( 20 ) 


OIP.FNSION 

t OSUa23,n , DA(i23,l) , 

2 HIH(123,1) , AT(123,1) , 

1 0LX0(12J,1) , AFT(l23,l) 

<1 SU(12S,1) , BRG(123.:: , 

5 TCN(123,i; , AIU(123,l) 

6 XNN(123,1) , XQ(12i,l) 


DkD(123,l) 
W0(123.1) , 
, ADE(123,1 
A1C(123,1) 

, ACC2J,i) 


, Ae(123,l) , 

CAH(123,1) , 

) , BFT(l23,l) 
, ATT(123,1) , 
, AMT(123,1) , 


, 


EQUIVALENCE 

1 (OSL(l).AM(l)) , 

2 (AH(i),Ai'.(2fcB7)) 

3 (WD(n,AB(4‘.'>U) 

4 (APT(l), Af.(b0?4l) 

5 (SL(l),AM(7<i0n) 

» (ATTli),/N(869l)) 

7 (AC(l),Ai:U2610)1 

i (XQ(1),AN(I0004)) 


(DA(1),AH(104)) , 'l)M0(l),AM(246t)) , 

, (KIM(|),AP.(4921)) , (AT(l),AM(494l>) , 

, (GAum,AM(«9fll)) , (OLXQ(l), AP(500U), 
, (Anr(l),AM(b270)) , (BFT(l),AM(738n), 
, (DR(.(1),AH(7461)) , ( AIG( I ) , AN(867 1 ) ) , 
, (TCN(l),AH(|0147)), (AIN(l),AM(12b70)), 
,(AHT(l),AM(l26iO)) , (XNN(l),AM(9964)), 


OATA4ALPHlJ),Jal,8i/0,,l,E-4,2,E»A,fl,fc»4,8,E"4,l,2E'«l,l,6‘;«3,2,BE»HULE 01 
\j/ MULE 01 

0ATA(BETA(J),Jcl,8)/0,,5,C-4,I,C-3,2,t-3»3,E-3,5,E-i;7,t*3,l,t>2/ MULE 01 
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OJtAlPtl "“LE 

‘S»t.(5l6tJ),jAl,e>/..S6«,a.lE7,2,7«8,2.000, 1.716, l.aEe,0.'.«5,0..»l»PlE «| 

i- zii\ 

’St?Jrsiir(;r;r=!:;;“nS.'iE,..«E.OO,..676E..,-.767E6.,..6.6E6.,..KUEE .7 

l»25,^5l8C»^<I^^^,^>58‘•( l«»,93/0fc-2‘«/ 

Data MHVD»/«hH ^ 

iTy I'SIh^/Ubh ^ ecal h,prdoe« likes ik oke of 

^7.'fSUlf/7?T^;H^« ,A VM-X INDICATE, A SPECIAL H7DKODCH LINE IK 
lOROU?' f 13# 1*^H#NUNE HAS MjUNO//) 

y:??;.^?j;j7%-rc;t,r^o'Ks;6?riSDTo 

rKS c7se". 0 LIKE, KE»t ASSU«0 IK TKE LIKE GKOOP 
Ks5 

IUN»3 

KOU1S8 

ISO s 19 

ISP s 130 ♦ 1 

1SP2 » ISO ♦ 2 

ISXel 

1SXPS2 , MUIE 0 

START LOOP ON INDIVIDUAL LiNfcS 
IKlOX-l) 126,127,126 
J26 lfnOX,FQ,-3) CO TO 127 
KSsKl+US-l 
KFsKS 
JJsJS«l 
GO TO 5679 

1 sk." ■“ 

C 

127 JJ o 0 
KSsKl 
KF«K2 

5879 CONTINUa-. 

1>D 8820 1 = 1,112 
DO 8820 J=l,20 
PSLUrJl » 0# 

8820 DWD (IfJ) ' 0, 

I3PL 5 0 

IMlZZjtG, ) r.O TO 2960 
IF(NXI) 2960,296'’ •I'* I 

2961 DO 2962 1=1, NXI 
KCaPT alAd)'*! 
irlKCP^KCPT) 2962,2963,2962 

2962 CONTINUE 


m 



GO TO 

2963 ISHU s I 
c ,<r 4 j 
2960 CnSTr.LiL 
c 
c 

00 2 b 0 JOUH=KS,KF 

JrJDliM 

IF(JrKF) 2965 , 296 a , 2965 
296 « IKlSt'L-n 2965 , 2966,2965 

2966 IL*U)rr.i 4 M)(Kr,J>T< 1 )-l 
00 2967 JvsKj 

ILK r. ( 6 P(JV)+ 7)/0 

IF(ALTAULK),KF, \HY0R(D ,UR, tXPN(JV) ,GE, 0 , 1 ) GO tO 2967 
J s Jv 
JHOLD = JV 
GO TO 2965 

2967 CnOTlNUF. 

KKITt(N, 27 e) KGPT 
STOP 

2965 COMTIi'iJC 

JJ = JJ ♦ I 

IKIPX,!. 6 ,- 3 ) J = 1 M!)SHL(JJ) 

DO 3660 1 = 1 , NY 
00 3660 JV= 1 ,ISP 2 
3840 0 HG(I,JV) 3 0 , 

NK(JJ) s 0 


C MULF. 08 
C STATLtUNT 6 cnP.PLt.TtS TM£ INDEXING OPtMATION, CALCULmTE THE HOLE 08 
C LEVtl r-nr-ULATIUNS, mule 08 
C HULF. 06 


10 ILK = fP(l(,n+7)/R 
IK s N 0 (J) 

ICH = JIS(ILK) 

XF(lLK) 666 , 606,667 
o 06 KRITLtfl, 766 ) 

766 K)RKAT(// 2 X, 10 HMULF 2 STOP//) 
STOP 

667 DO 50 1 * 1 , NY 


T2 = ThEn)*l,36047twlb HULc 04 

TlsTEt(I)*POP 

T3 e TtUn/lOOOO, MULE 04 

Xp B XljN(lLK,l)*t/p(«tP:CIK)/?l)/XO(ILK,I)#GEt aK) 

S2(l) 3 XP 

C HULE 06 

C CALCULATE lInE STRENGTHS USING INPUTTED F-VALUE3 MULE 0« 

C HUUe 09 

VO e «HVI(J)/T1 
V = tXP(VO) 

V3 « 1,-V 

t4 SlTJJ,I) * 3, 1416*2, ei83E~l3*Fr(J)*XP*V3 


DHG(I,n=HRGtl,n«SL(JJ,l)*U, 40 LXQaLK,l)*.EPS< IK) /TI*V/V 3 AV 0 ) 
IF( 1 CH, 6 T.I 50 ) GO TO 4010 
BRG{ 1 , 1 CH* 2 ) * SLUJ,n 
GO TO 440 

4010 DO flOU lAB . 1 , 1 R 0 

4011 BRC(l,Ub« 2 )BURC(l,lAB^ 2 )-*SL(JJ,I)*VNUaCH,IAB) 

6 RG(I,i) « BRr.(l,l)tSL(JJ#t)*TCNUCH-lSO,l) 

440 CONTINUF 

IF{KRa 3 ),EO, 3 )SU(JJ,l)aSLUJ»l)/RHO{I) 

C 

C CREATE THE iNFLUCNCfc COEFFICIENTS FOR LINE STRENGTH NRT PRIMARY VARIABLES 
C 

DO <1600 JVVs),ISP 


IBS 



JLV=.1VV*{.1J-1)*7 
ISTA«^=8*(JVV-n*l 
Ij ‘<n=ir>TART+lsf’ 

.1AVS-0 

Oti t!>00 JVelSTAnr, I£KP 
JAV=JAV*1 

OSL(.U V,I)=PSL(Jl.V,])+BRGn^JAV)*AIN( JV»1) 

«bC5 CMJTlKOt 

SlU) = SL(JJ,I) 

C 

C SPrCIAl TREATPr*;! MIR HVORnchN lines —line widths 
C GO TO £1 IF HYDROGEN LINL 

c 

IF (At;TA(Il.K),NH.'JHYDR(l)) GO TO 20 
21 CONTI »:UE 
C 

C MYOKUGtN LINES AkK DIVIDER PITO TNU GROUPS, THE FOUR SPECIAL LINES 

f. LYMAN ALPHA ANR i t TA AND PA1.HF.R ALPHA AND BETA ARE CALLLF.O SPtClAl- LINES 

C ALL OTHER MYD«i)Gf.N LINES AKF CONSIDERED COMMON LINES 

C 

VKI) s XNN(NT , n**, 6666667 
F0=Vl(n*l,2‘j29L-N 
St:RTrf-(l) = 50RTU C) 

F 0 iNV(i)=; , 0 /ro 
Vl(X)sV,b9bt*)2/VUI) 

ElO s ,flAu2<><»«02S 
IF (LXPN{J),LT, 0 ,n GO TO 32 
C 

CC BEGIN COMMON LIME LINE WIDTH LOGIC 
C 

SONU-EXPN(J) 

SUNUNl SbAMN C J ) 

TAs*j, 7 ‘»I.'» 21 *Xnn(NT ,I)*S«:njl.L/SORT(TEL(l)) 

Vlls S(}IJU/(Jt,F;tl2)»3QNU/TFL(l)*XNN(NT,n/1F.E(l) C 

V2 s VllAVll 
V3 s Vll*V2 
V« = V2*V2 
VS s V2*V3 
lF'FVll-1,) ft0,e?,fl2 
80 AO * -,'j7721'j 66 
Al s ,«)999'J193 
A2s*. 20991055 
A3 s ,05?l996fi 
A« B n.WWfbOCO 
AS s ,00107357 

a »>A1.0G(V11)<-A0 + A1*V1 UA2*'/2 + AJ*V3 aA 0*V0*A5*V5 
0Ei0Xs-l,/Vn4Al*2.*A2*vn'*3,*A3*y?4a,*A<|*v3*5,*AS*Va 
CC TO 65 

«2 AI s P.330733 
A2 8 .250621 
A3 8 3,330657 
AO s 1,661534 
V6 a F:XP(-V11)/V11 
V7 8 V2tAl*Vll 4 A2 
V» 8 V2 t A3 • Vll ♦ AO 
El a V6 * V7 / V6 

OEIOX 8 •.hl*(l,4'l,/Vll)*V6A(2,*Vll*Al»V7*(2,*VU4A3)/V8),/Ve 
S5 TOaEl/O, 60516 
CAH(JJ,UsTA*TB 

BRG(T,1) a -GAM(JJ,n*(l,5*5,/El*OE10X*Vll) 

8RC(I,ISP2) 8 GAM(JJ,I)»(1,*V11/E1*DE1DX) 

CO TO 33 
32 CONTINur 
C 
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C 6LGIN S>»LClAL HVO»OGfK LINE LOGIC 
C 

TSQsTtf. (D*Tf:!.(l) 

X10 = ALOC10(y.Nh(»:T,i)) 

fJlO = ICOO, * (HVL(J) ♦ 0,0001) 

C 

c l»man alpha 
c 

ir(N10-i0196) 23,2?, 25 MULL 09 

22 Nf (JJ) = J 

CALL GF (A:,PK,SLA,SLA5,GLG,tFF) 

TA = 7,fc92-b,l2-'F>«*)l t + 8*TGn 

Ths-0,4127 + 2.‘>07L"i»*UE(n-I,65F.-10<>TSO 
K(n=)*txio*rfj 
10 

DlUI,nstA-7,fc9?-lXlC*(TP<0.4127)-TO 

ORa,2)sI0 

Cb=3,4t-6 

GO TU 50 

C 

C l.YHAN PfcTA 
C 

23 If (NID-1206U) 51,30,31 MULE 10 

50 Nr (JJ) s 2 

call GF (PfcTA, SL3,SLBS,CfG,l.FF) 

TA = 12,95*R,f.7fc-o*T‘ U(l'*?.ObE^B*TSQ 
TB=*0.7I75 + ii,7«'75E.r5*nfc (!)-l,2309*Tr') 

WU)-TA + X10« TP 
TP=TH#-E10 

Dwdf l) = TArl2,9S*XlO*(TB*0,717b)-‘TD 
Dv.n, 2 )sTD 
CB=l,7BE-b 
GO TO 50 
C 

C BALHEH ALPHA 
C 

31 1F(NIU-166B) tl7,06,<l7 MULE 1. 

<16 NF(JJ) s 3 

CALL GF (on. ,SHA,SHAS,CLG,tfcF) 

TA=1,5702*(20000,/TEE(I) )**0,52 
TBaO,U83*(lOOOO,/TFE(I))*»0,578 
R(n = TA*XlO*TB 

0R(I, l)a.O,52*TA*Te*(O,b78*Xl0*UO) 

DRU,2)s»TB*tlO 
CHal,3E«3 
00 TU 50 

C 

C BAlHER BETA 

c 

«7 lF(NI0*2b«9) 49,48, 49 
4B NF(JJ) a 4 

CALL GF (XI ,SHB,SHBS,GFG,FFF) 

TAt2,17*(1000P,/TL{;(I J)**0,339 
TOsO,U5*(10000,/TF.Ul5)*«0,333 
W(I)aTA-XlO*Tfc- 

Ow(l,l)8-0,359*TAtTH*(0,333AX|0+tlO> 

0wU,2)a-*TE*fl0 

CHsj,s 7 E .5 

GO TO ' 0 
49 CONTlNUt 
20 CONTINUE 
C 

C GAMMA (LINE WIDTH*. CALCULATION FOH ALL NON HYDROGEN LINES 
C 


MULE U 


MULE !4 
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o o o o n o o o o o o o r> 


DO <16C1 JV51,IS!'2 
iloOl !jRG(l,JV) = 0, 

GAM(JJ,l)=f,4Mp(J)*r;N(NT,n*T3**FXPN(J) 

BPG(I, l)r,„ CCI,l)*S(n*(*»l«*EXPN(J)) 
bUG(l,ISt'2)=Sa) 

33 Nr(JJ)~0 

UNE WIUTH influence CnEFFlClLNTS FOR ALL LINES EXCEPT SPECIAL HYDROGEN 
DWD AF’K/Y IS wST PRIMARY VARIABLES 

on 9600 JVV=1,ISP 
JUV=JVV+(J.)~n»7 
JSTAWT=n4(JvV-I)»l 
IEN0 = ISTA.’?T*ISP 
jAVsl 

DO 9600 JVrJSTART, lENO/ISP 

OWD ( JL V » 1 5 ■tDi'ii:. ( JLV , n ♦ CRC ( I , J AV'5 * Al N { J V » I ) 

JAVSJAV4 ir.p 
bOO CONTINUE 

IF(GUP(J).l-T,l) GO TO POO MULE 1 00 

AIR s 0 ,r/‘i*(.Er.( lK)«EFCJ)/HVL<J)*SnRT(GLE( 1K)/GUP(JJ) MULtl 

GAM(JJ,1> •• GAUCJJ.n ♦ XPAAIR/P.667L+19 
S(I) s t;AM(.JJ,U 

200 WD(JJ.l)=MVL(J)»SG'TT(2,*0,6O3lb*TP/XH(lLK))/2,99776E*l0 
50 CONTINUE 

1F(KH(13),NF,3) GO TO 0660 

DO 0655 I -I, NY 

JAV=7*(JJ-l) 

on 0655 JVsl»ISP 

1DXI=6*(JV-1)*2 

IDXPsiL'Xi-l 

JAV=JAV+1 

DSUJAV,l)sDSL(JAV,l)/RHa(I)*SL(JJ,n*(AlN(IOX2,n-AlNCIOXl,n) 

065'; continue 
0660 Ct'.^INUE 
250 CnMINUt 
RETURN 
128 CONTINUE 

Tilt FOLlOrINC block calculates THE ABSOPRTION COEFFICIENTS AND ITS 
derivatives WRT THE PRIMARY VARIABLES BY ADDING THE FREQUENCY DEPENOENCF 
TFHH3 TO THE LINE STRENGTH AND INFLUENCE COEFFICIENT TERMS CALCULATED IN 
THE FIRST CALL OF HULE2 

DO 30T9 K80*l»18P 

DO 3079 Is1,nY 
3079 AIGdfKBO) s 0, 

FHVS2sFHVSaFHVS 
FHVSINel,0/FHVS 
V7sl,'ji7/FHVS2 
DO 350 IslfNY 
F2(I)sv7aF0INVU) 

350 Sl(I}so,0 
JJ=0 

LOOP ON THE INDIVIDUAL LINES 

on 550 JDUHsK8»Kf 
Jr. JOUH 

IF(ISPLil9S,l'»5,l<>6 

196 IP(J-KF)195,1‘>7»1‘>5 

197 JaJHOLD 
195 CONTINUE 


JJ = JJ ♦ I 

IF(lPX,fG1.3) JrlNnSML(JJ) 

J.17s( 

V^ - (f HV5 » liVl 

PWOH = *US(FHV,OlN.| ,0/HVL ( J) ) 

ASSIGN iSl TO JftP 
NHUlNLeM- (JJ) 

IF (NHLIMf .fce.O) ASSIGN 65 TO JMP 
C 

C LOOP UN SPACE 

C 

DO 5S0 l = l,F4¥ 

S|.JJl=;.L(JJj I) 

GO U: JHI'» (65,351) 

C 

C SPECIAL HYDROGEN 1. IMS 

C CORE HEGION 

C 

351 WDH = VI (I) * PWOH 

GO TO (130,132,13«,136),NHLINC 
C 

C LYMAN ALPHA 
C 

130 IP c»;r)H-o.oo2P) i«o, i«i , 1 <u 
lAO VFE = KDH-A( PH( isx) 

15« IP (VII) 150,151,151 

151 IF («0P-ALPH(1SXP)) 152,152,153 
150 iSVPsISX 

ISXsISx^l 
GO TO 1«0 
153 ISXsJSXP 
1?XP'!;:)'.F + 1 
GO TO 1«0 

152 ATHrCtH (ISX)*(xDH-Al.PH(ISXP))*GEG(ISX))-VLh 
V3=ACH+SLAS(I3X) 

DSOAr. (,'.CH*V3FKPP (Isy )»VEE*VfcL) 
B=V3*VLP4SLA(ISX) 

GO TO 
C 

C LYMAN BETA 
C 

132 IF (wDH-0,01) 102,191.191 
l«2 VEEswi)H-ntTA(ISX) 

1G<» IF (VLE) 160,161,161 

161 IF (wDrt-riETA(lSXP)) 162,162,163 
160 ISXPsiSX 

ISXalSX**! 

GO TO 1«2 
163 ISXSISXP 
lSXPsISXP+1 
CO TO l«2 

162 ACH8(Ef KISX)*(W0H>RETA(lSXP))+r.LG(I3X))*VtE 
V3 sACH4SL»S(13X) 

osi)A»(ACH*v5+rrr(isx)*vue*VEE) 

B*V3AVtr: + 8L0(I8X) 

CO TO 167 

c 

c BALMER ALPHA 

c 

136 IF (WDH«0,26) 166,161,161 
166 VEEswDH-DtL (ISX) 

176 IF (VEE) 170,171,171 

171 IF (WDH~ OEL(ISXP)) 172,172,173 

170 iSXPalSX 



ISXelSy-1 
GO TO ia<( 

175 ISXal.’.yr 

ISXf’tl3XP*l 
GO TO I'l/I 

172 ACHS(U r (13X)*(wOH- r.r.L(13XP))-(GCG(ISX))*VrE 
V ;sACH< f.HAS(ISX) 
l)30As(ACM*V5 + tf f nr.x)»Vi:t*VLt) 
usV3*vLrtSMA(isx) 

GO TO 1«7 
C 

C r.ALMEH GEIA 
C 

P6 ir (WOH-O.i) 1A6.1«)1,191 
inu VrfcswDH»> XHISX) 

5o« ir- (vr.b) U' 0 »iHi,ini 

Ihl ir XUISXIM) 182,182»183 

160 ir.xpsisx 

1£X=1SX^1 

on TO Hh 

163 ISXalSXP 

ISXPsISXF>+l 
GO TO IA6 

182 ACMs(tbU13X)*(KOM- XI (ISXP) ) > GIG ( ISX ) ) *VCt 
V3aAtH + SK‘iS(ISX) 

'*.SOAa(ACM*VStr br(lSX)*VEt*VtE) 
b.-V3*Vtl + ShU(loX) 

I <17 CONTIUUL 
8=10,<.*6 

pSKDArB»03DA*2.302S8 
U:;W*P < t) 

DllOt N1s0,hfa66667* (B*H)H*0SKDA*r2(I ) ) 

DBOLK‘P=-Of;DLNT 
GO TO IA8 
C 

C ai’EClAl. HYDROGEN UINCS 

C WING REGION 

C 

191 V = W(I) 

VO a DWClfi) 

V6 6 Dhn>2) 

CO TO 192 
l«l Va R(l) 

VO a 0R(1,1) 

V6 a DR(1 i2) 

192 W.»HSO.-»iOH*WOH 
SQRWOMsSORT(HOH) 

0a(CB*(l.O+ V *SGRwOH*SORTFO(n)/{WOHSO*5QRiniDH)}*F2(l) 
TBsCB*V7/*IDHSQ/S«RTf 0(1) 

DH01,NT5.»B+1P*V0 
OnOLNPa*9tTB*V6 
148 CONTINUE 

c 

C CAUCULATIUN OF ABSORPTION ClJEFF AND DERIVATIVE HRT PRIMARY VARIABUF.S FOR 

C SPECIAL hydrogen LINES ONLY 

C 

DO 66 JVV=1»ISP 
JLVSJVV+JJ7 
I3TARTaj*(JVV-ntl 
IEN0s13TART*ISP 

DBOX aDEDLNT*AIN(lSTART,l)+PBDLNP*AlN(UND»l) 

66 AlG(I*JW)=B*D3L(.lLV,l)+8LJJl *DL*DX ♦AIG<I»JVV) 

S2U) a SLJJI * B 
CO TO 67 
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o n r> o 


65 CONTI'^UE. 

CALCUL-HCIN flK AnsO«PT10N COfcfF AND DERIVATIVE WRT PRIMARY VARIABLES FOR 
/.LL l-lKfcS EXCEPT SPECIAL HYDROGEN 

JLVSJJ7 

GAt1JJIsGAM(JJ,I) 

V<i=GAM.IJl*CAMJJI 

V5»V4-V2 

V6=V«+V2 

DEN=?Si56,V2*V6 

B-GAHJJI/DFN 

DO 5«9 JVsl,ISP 

JLV=JLV*l 

AlG(IrJV) = (DSL(JLV,n«SLJJl *DWD C JLV, I ) * ( VS/ ( V6*GAMJJI ) ) )*0 
I +A1G(I,JV) 



CONTINUE 



S2(U s SLJJI 

* 8 

67 

CONTimiF. 



Si(I) - SKI) 

♦S2(I) 

S50 

CONTINUE 

RETURN 

END 



i 

I 
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J 

I 


i 

5 






I 


,U) 


c 

c 

c 

c 

c 


c 

c 


c 

c 


SUBKODTlNE. K-GDEti(K'UP5 

,,,()HT1&NS SPfcfliS MJMBEP niNSITieS FOR EACH SPATIAI, STATION 

OIMtNyil’NlO FOR tlO SPfCltS 

JNTt(4-t; F AMOA,F/.P(.i!?# 6tTA»BhTB 

COMK.ON/CPNTM/NCRC(f!0) »NSBNf Z(?0) ,HVG(iO) fKSC20), nS(l6),NlL» 

1 HVTC30) ,CSS(2UO),IIl.C30),lSS(iO) ,iriHN(20), 

2 Xinti(30) »BLTA(30J ,OKTR(50) fNSTl »NT»X13(2«0)»1N(30) 

COMHn>v:KPCOH/SPZ-! (SRU , I3»SPZ2(70) .P/SPZ3(a60),T,SPZU{i08i, 

1 VNU ( GO , e ) , SPZS ( 1 67 ) , ; SP2 , 1 A'IUa ( 60 ) . f a. M(J(U60 ) , ISP, 

2 NSPt Crf SCGC3),KIN,KnUl ,<KR(20),FSC7(6«) 

C0^1rU)^4/l CTCOM/SPZ7(fi),AA,SPZ8(37),A(li|,l^),SPZ9(357),TC(60), 

I SXZ.10 (203) 


NODFNOOS 


NUDLN012 


COMHON/IUlCPN/KRC;!0),KQa0),K:- nOI,M,N 

COMPON/i lNi:/HVL(200) ,K|,K2,TLCM(25) ,TLCP(2S) 
l,Nl,XNOl (200), GUP 0 200), F XPN( 200) 


,NX1,1A(9) RAOINO 


COHPON/NONCOM/ AM ( I 2 i , 1 2:4 ) 

COHM()N/P»PCOH/PR(?0) ,«HO(20),8C(20) ,CAPC(20) ,QR(20),XMU1(20) 

COMHON/RAD/AHV(‘.)0) , AHVl,(25) ,C1 ,r.2,C3,C<l,C5,DEl T A , EPS ( 1 60 ) , FF (200 ) , RAO 
lFHV(2'^>),FMVr.(S0),t HV!'.(2S),FHyP(c!b),UMI(2b),HPI (2'j),rEl,FL2,FLG, RAO 
2FLG1,GAP.P(200) ,GI i.ClGO), NAL S, NHLP, NO ( 200 ) , N1C,N1CN(2 RAO 

35),NlHVr.,NMV,MU(2'j),MY,PREv'>(20).lFL(20),‘41E(2S),XMUt, 

« YOfcL1,YY(20),CASE(lb),TM5W(b0),TM5wL<2b),TW,lO8 


rnMMfiN /RAor.tiM/ 


1 


7T(20) .VMW(20).Hi,(2r.),SP(l,20,«) 
,ThETA,SV1 , SPl,SRl ,HS,HP(20) 


OIMENSION KCNT(3) 


NODEN002 

OAOINOO 


NUOENOIB 


DIMENSinN 


1 

2 

3 

4 
b 
6 


DA(123,1) , 
ATa23,l) , 
r AFH123,l) 


081(123,1) 

WIM(123,1) 

01X0(123,1) 

SL(123,1) , BRG(123,1) , 
TCN(123,l) , AIN(123,1) 
XNN(l23,l) , X0(123,n 


DW0(123,1) , Aa(123,l) , 
WO(123,l) , GAH(125,1) , 

, ABF(123,1) , BM(123,n 


AlG(12i,n , 
, AC(123,1) , 


ATTU23,1) 

AMT(123,l) 


OIMENSION FR(123,1) 

equivalence 

1 (0SLU),AM(D) , 

2 (AD(1),AM(26A7)) , 

3 (WD(1),AK(4961)) , 

a (AFT<1),AH(5024)) , 

5 (SL(1),AM(74I01 )) , 

6 (ATT(1),AM(u691)) , 

7 (AC(1),aM(12610)> , 

6 (XQ(1),AM( 1 000'' ' 

equivalence (FR(1),AM(s 

10^0 F0RMAT(2X,2A4,2X,1P13E9,2/(12X,1P13S9,2)) 
1060 FORMATOH /«flX , 16MNUMHF.R OENSITlf.S/') 

1070 FORMAT(lHl,///«5X,nH0LLTA s ,1PE14,6,/) 
iai6 •rORKAT(lHl,//10X,b8H THERMUOYNAMIC STATES 
INC WITH HALL//) 

: DO EDGE CALCULATION 


(OA(l),AM(10a)) , (0w0(l)#AM(2«6U) , 

, (WlM(l), AM(U92l)) , (AT(1),AM(4941)) ♦ 
(GAHtl),AM(a961)) , (OL XQ( 1 ) , AM (500 1 ) ) , 
(A»E(l),AM(h270)) , (Bn(l),AM(73Bl)), 
(QRGtl),AM(746l)) , ( AIG( 1 ) , AH (867 1 ) ) , 
(TCN(l) ,AM( 10147)), (AINU), AM(12b70)), 
(AMT(l),AMU2630)) , ( XNN( 1 ) , AM(996« ) ) , 


ACROSS THE LAYER -STARTl 
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I 



c 

c 

c 

c 

c 


c 


IF(NOf’,GT,n CO 1(1 120 

CAU. 1 1-IIIII.(KQ,NY ,PHE3( NY)) 

HHO(KiV) = AA/(J,iUb*T) 

KCNl(l) « I 
fCNK?.) s 2 
KCNT(i) s 0 
tfLO s 0, 

CAUL GLURCNTr NY,PHES( NY)) 
RFTUHN 
120 CONilNUU 


00 THtRf^UOYNAMIC STATC CALCULATION 


IF(KR;i 7),NE,2) hRnr(N,1216) 

Nfa 1 

DO B7 I=i,NY 

IF(KQ(1 ) ,FC,0) TT(I) » l,8*TtE(I) 

IF(KO(l),i.C,2 jANO. KF ,EO, 0) HH(1) = TEE(l) 

CALL k'-HJlLlKW, I rFRl-T'C 1) ) 

set up aU AND ACN ARRAYS FOR CORRECTION COEFFICIENTS 


NNHS ■ (.SPEC - 13 
RHOCl) = AA/(1 ,3106*T) 
DO <>2b Jsl,NNti.S 
625 TCN(J» 1 ) = -TCUUS) 
on 630 n = lfI 5 P 2 
00 630 JJ= 1 ,IEP 


lOX = n*(JJ-l) ♦ II 
630 AINdOXfl) » A(I1».M) 

TEEU) s TT(1)/1.8 

ir(KRMfll ,r;Tj 0) CALI OOtKCNT, 1 r PKESd ) ) 


67 CONTINUE 


CALCULATE ELECTRONIC PARTITION FUNCTIONS FOR ATOMS ANO IONS 

<|R5 DO 500 1 = 1»NY 

T1 s TEt(I)A6,6?C»5 

IRK s 0 

NCESsO 

<150 IRKsIRK*! 

NICE a 0 

xoaRK,i)so, 

DLXO(lRK»I) s 0, 

<175 NCESsNCFSFl 
NlCtsNlCt+l 

V a EPS(NCES)/T1 

VI * GLE(NCE3)*FXP(-V) 

XQURKfl) a XU(IRK»1) + VI 
OLXO(IHK»I) a 0LXQ(IRK»I) ♦ VI * V 
IF(NCLS ,EQ, NAF:S) F'' TO 7500 

(155 IFCNlCr ,EQ, 8) GO TO 7«50 
<176 GO TO R75 

7<«50 DLXOdRKfl) a DLXQ (I RK , I ) /XQ (IRK , I ) 

GO TO «50 

7500 OLXOdRKfl) a DLXQ(1RK,1V 'ICIRK,!) 

500 CONTINUE 

C START LOOP ON SPATIAL GRID POINTS 
C 

00 20 lal,NY 
PRESSaPRtSd) 

DO 19 Ja»,NT , 

IJalN(J) 


NO0EN025 

NUDEN026 

NODEN027 

NODEN029 
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IF (IJ,EC,0) RO TO 10 

NOOEN020 


XNN(J,n-7.3398t21<=FHtSS*FP(IJ»n/TFt(l) 

NOOEN030 


GO TO 19 

NO0tN021 

16 

XHN(J,I)sO. 

N0DEN022 

19 

COMTlNOt 

NODENOil 

20 

r'jNTINUL 

iF(K«vl7),fcO,2) GO TO 75 
WRITE(Nf 1070)I)ELTA 

NODLN03? 


WHITt(»i#1060) 
on 50 J"l.NT 

NUOEN0i3 


WUnE(N, 1050) BETA(J) (XNN(J»n#lsl»NY) 


Vj 

RET URN 



END 

NODEN064 



SUBROUTINE OGli ( N, XAM ,f «M, NUMX, X , R , EH) 

D J ^'l.HSION XAH(l)i.X(l)»P(l)»E>l(l)»f’WM(l) 

XDll sXCNUMXj-Xd) 

1S=J 

? DO fcOO Jal»N 
XAsXAM(J) 


ll)sj 

1T=1 

61 ir(xfHF) 7^,60,71 

71 II (XA-X(IS)) 6?,63»6R 

72 IF (X (IS)-XA) 6P,63,6<I 

62 ir nS-l)67l,671,68 
6S IS=1S-1 

1T = 2 

GO TO (6l,66)»in 
672 ISslJUHX 
671 1=IS 
HsO. 

OI>Di = L'Mm 
GO TO 67 

63 PHSR(IS) 

DPPI=tH(lS) 

GO TO 601 

64 ISsJS+1 

IF (IS-NOHX)69f6R »672 
69 1US2 

GO TO (61,6r>),lT 


6^> IS- IS-1 


/ *• ^ ^ ^ 

Gs( ((P{Hn-pn))/txn+i)-x(i)))-EMn ))/(x(i+i)-x(i)i 
r = (((EH(I + l)«H'(n)/(X(I + l)»X(l)))-2,»G)/(X(l + l)-X(I)) 
Hs(K«CXA-X(l4n ) + G)*(XA-X(D) 
DPl)ls(H*H*fcM(l)*F*(XA-X(I))*(XA'X(I))) 

67 PWs(H + FM(I))*(XA'*X(I))»P(I) 


601 roNTlNUt 
PRH(J)sRR 
600 CONTINUE 
60 CONTINUE 
RETURN 
END 


UUUE 00 
OGLE 00 
UGLE 00 
OGLE 00 
OGLE 00 
OGLE 00 
OGLE 00 
OGLE 00 
OGLE 01 
OGLE 01 
OGLE 01 
OGLE 01 
OGLE 01 

ogle 01 

OG ? 01 

i. • ; 01 

OGLE 01 

ogle 01 

OGLE 02 
OGLE 02 

ogle 02 

OGLE 02 
OGLE 02 
OGLE 02 
OGLE 02 
OGLF 02 
OGLE 02 
OGLE 02 
OGLE 03 
ogle 03 
OGLE 03 
OGLE 03 
OGLE 03 
OGLE 03 
OGLE 03 
OGLE 03 
OGLE 03 
OGLE 03 
OGLE 04 
OGLE 04 
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c 


c 


c 

c 

c 


c 

c 

c 

c 

c 


c 

c 


c 


c 

c 


c 


SUBRnUTlNh RAOlM 

IMTF.GKR tJI.TA»3tTB,»A,Ba»»L*BM,Bl.lNL 
INTEGER FAM 06 ,rAHnH 
DJHENSION BU iE(10)»JLlNE(l0) 

CD^^MON/CON^H/MCl^C(^O),NSHN,zr.^0 5 ,HVG(30)»KS(20)|IISU6),NH.» 

1 HVT(30) ,CSS(?»JC') ,1IL(30),1SS(30) ,IOBN(20), 

2 Xlt)N(3ft)»n« TA(30)f F tTB(30)»NSU»NT,XI5(2itO' ,Ki»(30), 

3 nHRes(30)rCOErA{3C),C(iEKD(30)f IZZ 

COHMON/OirCOM/lNOXl (6 <»),InO> 2(66),OA1 (66),0A2(6fc)*0A3(b6)»nBl (66), 

1 0B2(66),0B . J»),0C1 (66),0C2(66),UC3(66),ACl(66), 

2 AC2(66),AC3(66),AD1 (66) ,AD2(6<>) , AC'3(66) , AH (66) , 

3 AE2(66),AF.3(66),MlNTAUb),MlNTB(15),JCS(l5),MUP 

H ,NOlK ,XMM(66),TRN8Cb) 


Common/ JNTCOM/ARC 20 ), Kouo), kp ( 1 0) ,M,N 

COMMUN/EQPCuM/SP2Z(2«n»lS»5PZ2(70) ,P,SP/3(«B0),T,SP2<I(30P), 

1 VNU(60,6),SPXX(7)»W1 .(6(,5»aF’Z5(120?,ISP2,PAM:U{i,0) 

2 ,F AHQBf60),lSP,NSPtC,FSC6(3),KlN,KUUT 

COMMON/Ulf>E/Hv;. (200),Kl,K?,TLCM(2b),TLCP(25), NX!,iA(9) RADINO 

l,Nl,XNUl.{20C),(;(lP(?00),t XPN(200) ,Xk(20),MUG,lNr>SHLU2) 

C0MMnN/N0NCnK/AM(123, 123) 

•:OMMON/QUTCOH/l.PtX(3) 

COMHON/PRPCOrt/PR(20J,R!(O(20)»SC(20),CAPC(20)»0R(20) ,XHUI(20) 

COMMON/RAO/AHV(bO) , AHVl.(PS) ,Cl ,C?.C3,^«,C^,0^-LTA,^.PS(lt '),FF (200) , RAO 
lFMV(2‘>),PHVC(50),FHVM(2b),FHVP(2b),HMl(2b),F IPI (25) ,F U ,KU2 , FLG , RAO 
2FLGt,GAMP(200}fGEinb0), NAIS.NBIP,ND(200) #NIC.NlCN(2 RAO 

35),NIHVC,NHV,NU(25),NY,PRF.S(iO),TFF C20),wnt(2S),XHOLf 
« YDfc.LT»YY(20),CASE(l5)»1f,3‘N(S0),TnSWL(2Si»TW# fOB 


COMMON /RADCOM/ TT (20) , VRis 20) ,Hh(20) ,SP( 1 ,20,B) 

I ,THf!A,SVl,SPl,SR(,H3 

CnMMUN/TNPf/XN(U)»XM(li).UMFG(ll,n ,nfOOMtG(U,n,l) 
i ,FOMtG(n,n, n,lE5F'V,XKT,USPF,A(ll,U) 


OADINOO 

EQUILOO 


DIMENSION BAU6),BB(l6),NaCT(2) 
DIMENSION nuK { 123, i),0OTLt 123,1) 
dimension EM3W(50),EMSwU?.5) 


DIMENSION 
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1 

?. 

% 

4 

b 

6 


Dsi.(i?:?,n t o*(i23.n » 
» AT(l? 3 ,n » 
Olxon^ 3 ,n f AH(l 23 fl) 
SL( 123 , 1 ) nRP(l 2 J»l) 
TCN(i 23 ,n » AIN(l 23 fl) 
XNMCl 23 ,n . xnUZi#!) 


Dv;lHi2S,l) , AB(121»1) 
w{)a23»n , GAM(123»U 
, &Bt;n 23 ,i} , 
ilt:ci23,n » ATT(12i,l) # 
, AC(123/1) » AMT{123,1) , 


BFTU23,n t 


C 

C 


LQUlVAUNCr.^ , (OA(l).AHClOfl)) , (0WD(n,AM(2a6l)) , 

(AH( 1) »AMC2»:'E7) ) « ( MiH (1 ) , AM (492U ) f ^ ^ ^ . f 

C WD ( 1 ) » AM( U‘'b J ) ) t (CAfK 1 ) * AM(49fll) ) f (DLXO< 1 ) » AM(S00l ) ) » 
i;H(l),AHCi02iO) , (AUF n)»AM(b270)) t (HFT(1)»AM(7381)), 
'■'La>»AM(7':0n) , (BRGn)»AM(7«M)) » (AIC(l),AH(8b7i)) » 
‘idTCn^AHtrbOl)) , (TCM(1 )»AM(101<l7)),(AlN(n»AM(12670))» 
' ( AC ( 1 ) » AM( l2c 10) ) » (AHT ( 1 )» AM( 12630) ) » (XNN{ 1 ) » VH(9964) ) » 

• (x(m;»AMnoooy)) 

/ ,(UijTC(l),AH(S021))»(UUTLCl)*AM(9bl2)) 

EOUIVAteNCE UMSA(l)f AHV(l))»(tMRMLCn»AHVL(l)) 


OADIN014 

DAOlNOlb 

uADlNOle 


DATA 

DATA 


NELCT/«HF<. 

NHYpR/tHH 


» 4 H 

/ 


100 

101 

102 

103 

lib 

120 

121 


DAD1N022 


EXPN(l) 


DAD1N018 


FORMAT (6U 2,1) 
rORMAKOOlZ) 

FORMAT (2AO,12,HOt«»2hl2,lf3F12,2) 

FORMAT tbI3) 

Ff)RMAT(24l5) 

FnRMAT(lHl,60X,f»H OLCH A ,/) 

FORMAT (6H GRtJl'l*,eX,?HrtVf 12X»3HHV*» J 1X,3HHV"» lOX, 1HN» 

160H NAML K(I) HVCl) F(I) CAMU) 

122%ORl!iT(l4,F12.3,2ri4,3.n2,5X,A4,l6,F11.3,lPEll,2,lP2tl2,2,0PF6,0) 

124 f ORMAT(b6X,3X, AU, 16#» 1 1 , 3, 1 1’E 1 1 , 2» I Pt 1 2,H» I Pt 12,2 » OPf 6, 0) 

225 FnRMAT(8F.10,3) 

226 F0RKAT(6H2,4) 

597 FORMAT(//lo9H^MlTH r/7»l» YOUR FHVC J, 

1 EV) THE BOUNDARIES OF tHOEE GROUPS HJTH SPECIAL H LINES//) 

600 FORHAT(3nytil,3yt ia,3,40X»2A4) 

610 FnHHAT(BtlO,3) 

620 fORMAT(20A4) 

901 FORMAT(12»2Xf I2»2Y,12,2X»I2) 

1080 F0RMAT(1HI,/,^^^^ . ,lbA4,//,ax,65MRADIAT10N CONTROL Ltxoadin025 

1 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20»//»33X,20I3DA01N02b 

l085^Fo”AT(//6i»55UCHEMlSTRY CONTROL NUMBERS J J 3 « 5 6 , J ® 

19 lOrBX^bOHFLOW CONTROt NUMBLR3 l^3<l!»^>789 10433X# 

l090^FORMAT(//50X»29HHAnlATlVE BOUNDARY *^®”.,,_*3 IZIIIIIIdaDIN030 

i' ZIZZIZIZriNrGRmll---’---” »/*130H DADIN031 

3*^ HAVE EMJTTANCE TRANSMITTANCE **OADIN033 

4AVE EMITTANCF. TRANSMITTANCE ,/»l30h 0A01N033 

5 FREO, LENGTH WAUL /OUTER BOUND, NALL /OUTER BOUND, JJSSiSJJSxS 

I cMRTu uAi I /niiTFR notlND. WALL /OUTER BOUND, i/f 130DADIN035 


DADIN023 

2DADIN024 


7H 

8 


(EV) (A) 

(EV) (A) 

!095^FORHAT(F10,3,E10,3,F8,3»F10,3,m,3,F10,3#Fi2,5»tlO,3 

109 «^foRMAT(nol 3 !tlO, 3 ,F 8 , 3 »F 10 , 3 ,m, 3 ,F 10 , 3 ) 


0ADIN036 
,OADUi037 
DADIN038 
,F8,3»F10,3 DAD1N039 
PAOIN040 
DAOINORI 
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DADIN042 


1099 lCR»UT(tJ 'ff lOs3»tl{>,5rre,?»FlO,^»l llt3»Fl®»5) 

«oJ ">■=' to I «"2> “* 

u//) 


aooo 

0001 

400a 

4010 

4227 

soot 


^•tRE not included in the diffusive transp 


fnr.R/T(2IK**MlNE CFOTFR FREO AT ,IV/i,23h IS OuT OF SFOU£NCE****)RAOINOO 

f«eo M ,L!, 5 ,a 3 H is i.uT Of staotNCf....) 

'!1rmaT(5Sh*«' ‘ tXlEI-O CONTIhuUK F'*fO flANGE**'*) OAOIM022 

f riKMAT(10ll,9f-l(i.3) 
f nii;UT(4A/j,3X,ll»oElO,3) 

5002 f OKMATI20X,(! 10,5) 

5003 IOHt'AT(/2X»67'>‘ ELECTRONS 
lUKT PROPS - BAD/) 

sSSS you “AVE ,I5,71H SFtCUS I» rOu« OlffOSIYE IKNSPST 

1 HOL, PGM IS DIMENSIONED FOR ll»MAX»//) 

8500 F(iRHAT(59):#I 13) 

6501 f 0‘O1iT(2X,2I5# 1P4E ia,6) 

8503 M»R''AT(bX,2AO,2x»I3) 

8505 FORMAT (//5X» 1«M&.^TA DECK 
llM. • 01 30) 

8506 FO* >AT(//5X,14H0ATA DECK 
IIOIT OF 30) 

8520 fnHMATC6X,Hl5, 1P4E14.6) 

96?S rrm^M()/2i!26M?Ju ARE TKYlNR TO CONSiDf R, 1 3, 2X , 7 IH NONHOLECUL AR, R 
lAiMATiMP ^PrriL<; this LXCttDS THf OI^'tNSlON LP**1T OF 20/) 
9fclO^ORHAT(//2X,6l>HVotjR UCCK A DATA If. INCUNslSTtFiT, LINES WERE ASSIC 
iNfO Jo SPECU-S,2X,A«,2X,2iH BUT NOT 

9611 FORMAT(//2X# I^HyOi! HAVE SL LtCTtO , 2X r 2A^I ^ 2X# t>6HAS AOlATl 

imiT HID NOT INPUT IHfRHn DATA FOR IT//) • 

9612 rOi;PAT(//U‘^ data deck has ,I3,2CM lines, LI|"IT is 200//) 

961^ mHHaT (///ti HAS ki 'tb«»Li» i) fI>//J 

c,..........—*—— 


HAS ,I3,40H radiating sPECIES-DIMENSION 
HAS #I3»40H INDIVIDUAL LEVELS-DIHtNSlON 


INPUT DECK A 


J s 0 
II = 0 
lATO 8 0 
NIi„ s J 
NSHN = 0 
Ills 0 

UMASS s 1.660434E-24 
BEaD(H» 90<' 'IHVfNXI » IZZfNOUT 
1F(N0UT«GT,..) GO TO 800 
DO 900 lBl,J, 

5cAO<M, 6 )) lAt,NN ,N9N ,ZCIZ),XION(n),BETAaZ)»8lTB<IZ) 

ir(IAT,te,ft5 GO TO 200 
N8BN s NSPN t NBN 
7U5 IF<NBN,EQsl) 108N(NSBN) s I 

REA0(M»610) (GEE(II*JJJ)»JJJ»1»8) 

REA0(M,6W) (t.P8UI*4JJ)»>i'*’J^l»8) 

5uO(l!:M5!’>“(IsB”NTH(!ES<t.98«).C()ef»(N.BI<l.COEFB<M8BN) 

IF (TTHRt8t".SBN),GF , ,10) GO TO 3226 
CnEFA(N3LrJ)sl, 

COEF0(N8BN>aO, 

3220 CONTINUE - 

nEMPB8*lNSQ!!M) 

REA0CM,6Id)(XLS(ITEMPtJJJ)#JJJ»l»0) 


198 



325 IMKN.n.O) GO lU 3*»s 
DO 360 Ulsl,NN 
NIL 5 NU ♦! 

ISS(NIL) s I 

HF.Ar;(H,«»500) HVT (NTl.) ,lCV 
HL(NIL) s I14LFV 

Pr \PCM,9500) ( tSS(lH+J2) iJ2=l,8) 
360 111=111 ♦ 8 
3«5 Cimu.’UE 

IKIAl ,tQ,lATO) GO TO 50 
JsjAl 
KSU) a I 
50 lATU = lAT 
II r II ♦ 6 
900 CONTIN’l'fc 
200 CO'm^UE 
NAES s II 
NSKS s J 
NSTl s IZnl 

IKNSTl ,Lfc, 20) GO TO 226 

H9nt(N»9600) NSTl 

STOP 

228 CONTINUE 
READ(M,620) 8A 
RfAUCO»620) BB 
NT = NSTl 

DO 75 1=1,16 

IK6Aa),l.0,NEUCT(2)) GO TO 133 
DO 65 II=l»J6 

lF(OA(I),Nt,BBlIl)) GO TO 65 
IlStl) = I 
NT = NT+l 
BETA(NT)=BA(I) 

BETB(NT) = NELCT(2) 

GO TO 75 
65 CONTINUE 
133 IIS(I) s 0 
75 CONTINUE 
NT = NT+l 

BETA(NT) 8 nELCTU) 

BETB(NT) s NfcLCT(2) 

IP (NT ,LE, 30) GO TO 229 

WRITE(N,6505) NT 

STOP 

229 CONTINUE 

IF(NIL ,LE» 30) GO TO 230 

WRITE(N,S506)NIL 

STOP 

230 CONTINUE 

REA0(M,226) (FHVMU ) , Ul ,NHV) 
REA0{H,226) (FHVPU),Ial,NHV) 
(FHV(t},|«l|NKV) 
IP(NXt) 8O*90»et 
61 REA0(H,10t) (lA(I),Isi,NXl) 

60 RLAD(M,10I) ( NU(I ) , lal ,NHV) 

ISSO 

. DO I IsIfNHV 

XFCNUd) ,LE, 12) GO TO I 
IF(NU(I) ,EQ, 13) GO TO 67 
Kil3 

69 WR1TE(N,9613) I,NU(I),K 
STOP 

87 XF(IZZ,EO,l) GO TO 1 
Kb12 




PO 66 J=1,NXI 





IOUf‘=IA(J)*l 





IFd.FG.IDUH) 

GO 

TO 

09 

68 

CONTINUf 




1 

IS=1S*NU(1) 





IF (IS, Lt, 200) 

cn 

TO 

86 


WRI7LCN, 9612)13 
S i OP 

66 CON1INUL 
KL1NL=1 
ICI = I 
OU 450 I=!/IS 

RfAP (ti,102) 8L ,Q» ,NR(1)»E.XF•U1),HVL(1),^F (I)»GAMP(I)» 

1 XNnL(i)»GUP(I) 

IFdil. NHYOR ,UR, EXPN(l) ,GE, 0,1) GO TO 022 

INDSHL(ICI) s I 
ICI s in ♦ 1 
022 CONTI Not 

00 020 KK=1,KLIMF: 

K S KK 

IF (Bl,F.6,BUNE{K)) GO TO «90 
920 CONTINl'f. 

OUNtOOMU. 

KUNEsKl INt+1 

<125 CONTI NUr. 

00 930 JJsl ,30 

JsJJ 

IF (BLINE(K),NE,BETA( ))) GO TO OJO 
GO TO 935 
<530 CONTINUF 

KRIT!:(N',061C) SLlKCtK) 

S i UP 

935 JL1NE(K)=J 

990 ND(l)=(JLlNr(K)-l)»B4ND(l) 

950 CONTINUE 

ir(I3,F.0,l) GO TO 613 
00 913 IrlrlS 
NOU s XNOLd) ♦ ,001 
IFINOI. ,EQ, 0) XNOUtl) c It 
913 CONTJNUf 

00 513 lc2,18 

IF(HVL(n«*HVL{I-l)) 514*514,513 
519 WRlTEtN*4000) HVECI) 

STOP 

513 CONTINUf 
613 CONTINUE 

«FA0CM*115) NIHVC 
REAO(HtlOO) (FHVC(I)*l8l, NIHVC) 

00 560 Isa, NIHVC 

IF(rHVC(I)tFMVC(I-l)) 562*562,560 
582 WHITE(N,9001) FHVC(I) 

STOP 

560 continue 

IF(IZZ,NL,1) GO TO 590 
IF(NXI,EQ,0) GO TO 590 
00 591 I81,NXI 
KbIA(1) 

IF(I,EO,l) 60 TO 595 

KKalAU*!) 

VaPHVM(K)-FHVP(KK) 

XF(V ,l.T, 0,1) 60 TO 670 
555 CONTINUE 

00 592 JBI, NIHVC 
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Vs^HV^•(‘‘)-FHVf (J) 

Ir(V,l ! ,0,) CO TO 'i9? 

’f(V ,IT, .1) GO TO ‘J93 

f.ij TO 6f)0 
593 CUNTP.'U:. 

00 59<l J-l,^!I9VC 
Vs FHVC(J)’*PhvH(K) 

If (V,U,0.) GO TO 594 
If (V,l.T, ,n (.0 TO 670 
59(1 crifJTir.Ut 
bOO H9ITI.(N,59V) 

STOP 

670 IKI.tO.NXl) GO TO b55 
KK=IAa + n 

Vs»FHVP(K)*FHVM(KK) 

IF(V,l.T, O.l) GO TO 591 
b55 cont;*juf. 

DO 6S2 Jsl,NlHVC 
V=FHVC(J)-FHVP(t<) 

IKV.LK.C,) go to 692 
If (V,LT,,n GO TO 693 

692 CONTINUF. 

GO TO 6fl0 

693 CONTI NOt; 

DO 665 JslfNIHVC 
VsrHVP(K)-FHVL(J) 

IF(V,LL,0,I GO TO 6C5 
1F(V,LT, ,1) GO TO 591 
665 CONTINUt 
CO TO 660 
591 CONTINUt 
590 CONTINUE 
C 

WRITE (N»I967) 

WRITF. CN,120) 

WRITE (N,12J) 
iClsO 

DO 30 1=1, NHV 
IC2 » ICl ♦ NU(I) 
iCls Itl+l 

NAMX s (NDeiCn+7>/8 

WRITE(N,122) I,FHVn),FHVP(I),FHVM{l),NUa>, 

I OETA(NAMX),ND(lCn,HVUICl),FF ( IC I ) , GAMP ( K 1 ) , FXPNI IC I ) , XNOL ( 1C I ) 
lF(ICl,tQ,lC2) GO TO 30 
IC1=1CI*1 
DO 25 4=IC3,IC2 
NAMX s (ND(J)^7)/6 

25 WRITE (N, 124) onA(NAMX),ND(J),HVl.(J),FF(J),GAMP(J),EXPN(J), 

I XNOU(J) 

30 IC1SIC2 

C*****ft*«*««********A*A***********«***««***A**********«*********A*************** 
INPUT DECK H 


C*************W«*******«****«*««*««A****«ft***««***tt*«***A*********************** 

800 READ(H,4004) KH,CASE DA01N046 

DO 1902 111=1,10 
1902 KFdIDsO 
KF(1)=2 
KK2) = 3 
KF(7)=1 
KF(6)=2 
KF(10)=1 
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If (i<R(n ,»;f .6) CD TO H160 
C CALL Bl/RCS 
STOP 

61P0 CnNTlN‘l'»- 

(;L Al) ( M ) ( K Q ( I ) , I r 1 , I 0 ) , DLIM , T Ht T A / 5V 1 » SP 1 , SR 1 , HS 

iv'f = 0 
Mit; = 0 

;f (KR(ia),NE,a) co To 5?o 

KK'iasO 
Kl.(ia)rO 
ban coNTiNuf 

IKKF(l)-n I‘i6,157»rj6 
J57 IKKQ(5),Nt.l) GO TO Ibfi 
ir(KR(a),lE,2) GO TO Ibb 
GO TO lb<> 

Ibfi in>ITL(N»a 000 ) 

STOP 

l'->6 CONTI ^tJE 

If ( KR(7)-1 ) lGi,sr,‘M6l 
lb9 IK KP(12)-1) Jt.0,iMrl60 
IfaO CALL INPUT 

LSTAULKSH IDFnTITY OP EACH SPLCUS 

00 A800 J=1,NT 
K<1(J) = 0 

DO fef.02 i = l,N?Pf;C 

IF (F AMnA(I),M.,BtTA( J) ,()R,f AMOB(I) ,NE,BLTB(J) )G0 TO 6802 
K/((J) = I 
GO TO 6600 
680? C(5VTl(n/t. 

Wn!TC(Nr96in BFTA(J),BET(J(J) 

STOP 

6800 COMTIMfF. 

00 3919 Jst,20 
IJ = K«(J) 

3919 Xk(J) = UMASS * WTM(IJ) 

if(kri2,eq.<i) (;n to i6i 
IKKR(IU),EO,0) GO TO 161 

read and make sense of THE TRANSPORT PROPERTY DATA 


READ transition TEMPERATURES 
RtAD(KIN,S00a) (TRNS(I),lsl,b) 

DO '»9b0 1=2,5 

IF(TRNS(I) ,LE, 0,) TRNS(I) * 100000, 

6950 CONTINUE 

HAKE ICLMBsj FOR COLLISIONS OF THE TYPE— A*-E- AND At»At 

HAKE ICLMH=2 FOR COLLISIONS OF iHl. TYPE — A*«A* + 

make ICLMHS3 FOR COLLISIONS OF THF TYPE— Aft • Att 

lESPV 8 IS 
NIIR s 0 
II = 0 

on 5100 1 = 1,66 
RFAOCKIN,bO 0 n 

REAO(KlN,500nMnA,MOB*MOC,MOO»ICLMB ,OAl ( I ) ,0(U( 1 ) »0C1 (1) » 
1 ACl(I)#AOim,AEl(n 

IKMOA.EO.NELCTtan CO TO 5200 
IF(ICLMB,EQ,1) OAt(I)s-*990, 

1F(ICLMB,FQ,2) OAl(I) = -1090, 

IF(KLMB,EQ,3) OAl (I)Sf.H90, 


DADIN068 


DADIN049 

DADIN050 

DADINOSl 

NOOFN018 

NO0FN019 
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5000 


5010 

5020 


5050 

5100 

5200 


5225 

5250 

52«0 


S2‘>0 


9230 


9224 


5229 

C 

C 

C 

J6l 

162 

165 
16« 

166 


HE:AD(K1K;,5002) 
It (Itl.:'r,.Fr4,n 
KTM;(t'.U,5002) 

lKI(;lKf.,CQ,n 
ii=n + i 


OA2(l),OB2(n<Or.2(n,AC2m,A02(I),A£2(l) 

i.A^CDs-OOO, 

nA5(l),UB3(l),OC3a),AC3n),AD3a),AE5(I) 

OA3(l)s«990. 


JJ-0 

JJ=JJ+l 

IFCBr.A.lQjMINtAtJJ) ,ANO,MOtJ,E.O,HINT8(JJ))GO TO 5010 
lF(JJ,l.T,NUt') OU TO 5000 
NUt* = NUF ♦ I 
JJ = MiP 

KINTA(rjuP) a MO A 
HINIB(NUP) a P.Oa 
INOXl(l) a JJ 
JJ a 0 
JJ £ JJ ♦ 1 

IF (►;f.T.,rrt,MINTA(JJ)»AND,MOD,EO,MINTB(JJ))GO TO 5030 

IFUJ.UTfMU?) GO 10 5020 

NUP £ Nl.'P ♦ I 

JJ a NIJP 

Him A (NUP) a HOC 

MlNTB(;<Ui») a MOO 

1NDX2(I) a JJ 

coMTiNur. 


1F(NUP,U1,1) GO 10 5280 
DO 5250 Jal,NUP 
JCS(J) s 0 
DO 5225 Ial,NSPfC 

IF(FAHuA(I),Nt;,HlNTA(J),OR,rAMOB(I),NL,MlNTB(J)) GO TO 5225 

JCS(J) s 1 

GO TO 5250 

Clt'iT I **U*u 

CONTINUh 

CONTINUE 

noint = n 
DO 5290 lal , noint 
XI 8 INOXIU) 

12 a InOX 2(1) 
lie s JCS(It) 

12C s JCSa2) 

XMH(I) s WTM(IlC)*WTMn2C)/(WTH(llC)tWTHtl2C)) 

XMH(I)=S0RT(2,*XMM(1)/3,1<I159) 

lESPFsO 

DO 5230 la J, NUP 

IF(HINiA(l),EQ,NtUCT(D) lESPFaJ 
CONTINUE 

IFdtSPF ,NE,0) GO TO 922<( 

WRlTEtKOUTfSOOS) 

STOP 

CONTINUE 

IF (NUP ,UE,U) GO TO 5229 
WRlTE(KOUTf5«30) F'UP 
STOP 

CONTINUE 


1P( KR(2)«1) 162»163,163 
Cl a 0, 

CO TO 164 
Cl s 1« 

IF( KH(iO)"i) 165»166,16S 
C3 a 0« 

GO TO 167 


DADIN052 

DADIN053 

DAD1N054 

OAD1N055 

OA0IN056 

OADIN057 

DAD1N058 
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165 C5 C 1, 

167 ir( K«(l) «n 16'-), 166, 169 
J66 H.l s 2, 

FL2 = 2, 

GO TO 190 

169 FLl = 1, 

m = 1 , 

190 IF( KR(17*. -1) 170,171,170 
171 FLG = 1, 

CO TO 17^ 

170 FLG = 0, 
l7^ flGl = FLl-1 

If ( RPlil-n 17a,l7J,17« 

173 XMOl = 0, 

GO TO 176 

17« xnou « 1 , 

176 COfTlNUt 

K-Hl s IS - 1 

76 1F(C3) C5,77,HS 

INPUT INDICES fflK Y VALUE CALCULATIONS 

77 IF (KR(10),EO,?) go to 180 
RF:aO(»M 15) NIC 
READ(K,115) (NlCN(I),Isl,NlC) 

RF;AD(N, 103) NY,f.'I ,LDr x( 1 ) ,UDEX<2) ,LDF.X(3) 

REA0(M,226) (YY(I),1=1,NY) 
cn TO IBl 

180 REA()(IM03) LDEX(1),LDEX(2),L0EX(3) 

161 CONTINUE 

c INPUT transmission Factors fob contm and line calculations 

r 

IF(KR(5) ,F.0,3,0R,KR(5) ,f G,6)G0 TO ««1 
IF(KR(5),Hl,9,nP,KK(5),t3,7) GO TO aoO 
IF (KR(5),E«,5,09,KR(5) .EU,8) GO TO HHZ 
1F( KR(5)«1) it<IO,UifO,«Rl 
REAO(M,100) (AHV(I),Is1 ,N1MVC) 

READ (M,100) (AHVL(1),1=1,NHV) 

READ (M, 100) (TMsw(I),Isl,NlHVC) 

RtAD(M,100) (TH8«L(l),lsl,NHV) 

GOTO 85 

440 DO 355 Isl,NIHVC 
TMSW(I) B 0, 

355 AHV(I) 8 I, 

DO 456 1*1, NHV 
TMSKLU) 8 0, 

456 AMVLO) 4 1, 

CO TO 65 

442 DU 443 I*1,NIHVC 
THSW(I) s 1, 

443 AHV(I) * 0, 

DO 444 Isl.NHV 
TMSWL(I) a 1, 

444 AHVL(I) 8 0, 

85 CONTINUE 

541 1K( KR(9),EQ.l) GO TO 565 

VI s FHVC(NlHVC)/(l2,*e,62t-*5) 

DO 560 1*1, NY 
IF(V1»TEE(I)) 559,560,560 

559 NRITE(N,4010) 

STOP 

560 CONTINUE 
IF(V1«-TW)1559,569,569 

569 1F(V1"TQB) 1559,565,565 
1559 WRITE(N,40i0) 


DAD1N059 

DA01N060 

DA01N061 

DAD1N062 

DAD1N063 

DA0IN064 

DADIN065 

PAD1N066 

OAD1N067 

0AD1N06B 

0AD1N069 

DAP1N070 

DAOINOM 

0ADIN072 

0ADIN073 

DADIN074 

DADIN075 

DAD1N077 

DA01N029 

DADIN030 

0ADIN031 


PADIN033 


DAD1N037 

0AD1'I03« 


0ADIN079 

DAOlNOeo 

DA0IN040 

DADlNObl 

DADIN062 

DAD1N063 

DADIN064 

OADIN065 

OAD1N066 

DAOIN087 

DAD1N068 

DAD1N089 


0ADIN143 

DADIN144 

DADINI45 

DAD1N146 

0ADIN147 

0A0IN148 

0AD1N149 

OADINOOi 

DADIN002 

DADINO03 
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STOP 

5fc^> CONTPJ'Jf- 

1305 NwsMAXt’tfiHVjNIHVC) 

C ts'RITE I'.UT TRAN5MI.SS10N l ACTflRS 

wRlTECUf lOHC) c;ask,';k 

WRITE (N'» 1085) (KQ(l),I = l,l05,KF 
IF (CO, PI .2.01) KH(l.S) s 3 
WRITL(N> 1090) 
on 750 1=1, Nw 
IP (FJHV.GE. I) GO TO 51 
VI = UOOO./FHVrd) 

IF(KR(5)*5) 1520, 1510, 1521 

1520 EMSn = 0, 

TMSn = 1, 

GO TO 1525 

1521 EMSB = 1, 

TM3B = 0, 

1525 C0NT1''MIL 

wRITE(N,109P) FHVCCI),V1,EM3W(I),FHS0 , TMSW ( I ) , TMSB 
GO TO 750 

51 IF (MHVC,GF ,1) GO TO 52 
V2 = 12000. /FHVd) 

IF(KRC5)"5) 1522, 1522, 1523 

1522 LMS81 = 0, 

THSliL = 1, 

GO TO 1526 

1523 r.llSBU s 1, 

TM3RL 0, 

1526 COWTK.UE 

NRlTttN,1099) FKV(n,V2,twSKLm,EMSHL , TM8WL ( 1 ) # TMSBL 
GO TO 750 

52 VI = 12^(00, /FHVC(I) 

V2 a 12A00./PHV(I) 
lFCKR(5)-5> I52il, 152a, 1527 

152i| LB3B a 0, 

TMSD = 1, 

EBSDL a c, 

TMSBl. = 1, 

CO TO 1529 

1527 tMSB a 1, 

TMSB a 0, 

EMSBU a 1, 

TMSBl a 0, 

1529 CQNTJ.NOE 

WRnH(N,l095)FHVC(n,Vl,tMSW(l),p.MSB , TMSW tl ) , TMSB ,FHV(1), 
I V2,£MSWL(n, '.M&BL , TMSWl d ), TMSBL 

750 CONTINUE 
RETURN 
END 


DADINOOa 

0ADIN152 

OADIN096 


DADIN155 

DADIN157 

DAD1N158 


DADIN160 


DAD1N161 

DA0IN163 

DADINlba 


0A0IN166 


DA0IN167 

0AD1N169 

OAD1N170 


DA01N172 

DAUIN173 


PAD1N175 
OAOINI lb 
OAOINI n 
DAOlNiaO 
0A01Nia9 
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SUKRUUT I Nl SLOPO ( N , X , Y . a , Z ) 
DifLNsioN x(i),Y(n»a(n.zcn 
IF(fJ-l) 9 , 9,6 

b S(<>) = (Y(,'>)-Y(n)/(X(?)-XCl)) 
s(t)sR(a) 
fjC“S(2) 

D[' 7 1 = 1, N 
I F ( I ♦ 1 ".‘O 2 , 1 , 6 

1 OHS tic 

IF (I"2)7,6,? 

2 yoTsxa)-x(i«n 
XTT = X(I + n-X(l + 2) 
XTli=X(I*2)-X(l) 

AA = Y(ny(XnT*XTt1) 

X0TT=X01 *XTT 

AE = Y(1H ) /XCTT 
AC = Y(H2)/(XTT*xni) 

AAAsAA*XTl 
AHfir,AH*XIO 
ACC. = AC*XOT 
fM=HC 
OB=S(I) 

()C = {,(Itl) 

an )sAA*fXTO»XClT) + AHfi-ACC 
5 ( 1 + i ) = A Hi f xm . V T f ) + i r ( - A A A 
S(I+2)sAC*(XTT-XT0)+AAA-AbB 

3 II (I~2) 

a S(I)s(S(I)tOA)/2, 
a sm = (S(i)+uB)/2, 

6 XOSX(n-XOl) 

YSSY(I)+Y(I-n 

SI1RS(1)-3(I-1) 

ssssd) 

Z(l)sZ(l«-n*X0/2,*(YS-Xi3/6,ASDJ 

SdJsSS 

7 CONTINUE 
9 RETURN 

END 


SLUPOOO 
3LUPQ00 
SLOPOOO 
SLUPOOO 
SLUPhOO 
SLUPOOO 
SLUPOOO 
SLOPOOO 
SLUPQOl 
SLUPOOl 
SLUPQOl 
SLUPQOl 
SLUPQOl 
SLUPQOl 
SLUPQOl 
SLUPQOl 
SLUPQOl 
SLUPQOl 
SLUPQ02 
SLUPQ02 
SLOPQ02 
SLUPG02 
SLUP002 
SLUP002 
S| ilPQO? 
SLUPQ02 
SLUPM02 
SLUPQ02 
SLOPQ03 
SLOPQ03 
SLUPQ03 
SLOPQ03 
SLUPQ03 
SLOPQ03 
SLOPQ03 
SLOPQ03 
SLOPO03 
SLOPO03 
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SllBH0UTlNtTRANS3(NY/DY,NIC#NICN,ALFfBrE,TMU,tX,DH,BP,TAUT*FIM»HP) 
C0HMCJM/N0N'f:t1M/AH( 12i, ^^3) 

DI^ILNSION tX(l),OM(l),nP(n,0Y(l),DFt (l)»TMU(n,TAUT(l)»NICNU), 

1 FJM(l)»FIP(n 

DIMENSION tlN(2O),FPTAU(20),FMTAU(<J0) ,FPE(2C),FME(20),FPE2(20), 

I FMEZ(20), VBM{20),VAM(20),VCM(20),DP(20) 


C 


C 


C 

C 

c 

c 


DIMENSION 

1 DSU123,n » 0A(ia3,U , DW0(l23,l) » AB(l23»l) , 

2 WlH(l?.3,n t AT(123,1) * WO(123»l) , GAMU23, ) , 

3 0l.XC(l23,n * AFTa23»U , AMt-CUS.l) , BFTU23»n i 

M St(l23,l) , Br!C-(123,l) , Air.(t23,l) , ATT(123,l) , 

5 TCN(J23,n , AIN(i23,U , *0(123,1) t AMTCiaS,!) , 

b XNN(I23,n , Xt)(123,D 

EQUIVALENCE 

\ (08Un,AMn)) , {DA(l)»AM(JO«)) , (DWD(n»AM(2<lf.in , 

2 (AB(l),AM(2687n , ( WIM ( 1 / , AM («921 ) ) , ( AT( 1) , AM(*I9A 1 ) ) , 

3 (WDn),AM(a961)) , (GAM(1),AM(U981)) , (OLXQ( I ) , AM (500 1 ) ) , 

A (AFT(l),AM(b020)) , ( AB(. { U , AK (5270 ) ) , (BF T ( I ) , AM(73tt 1 ) ) , 

S (SU(n,AM(7a0D) , (BRG(l),A! (7«6U) , ( A1G( I ) , AM (667 1 ) ) , 

b (Amn,AM(Bfe91)) , (TCN(n,AM(l01«7)),(AIN(l),AM(12670)), 

7 (AC(n/AM(12610)) ,(AMT(l),AMn2630)) , (XNN(n,AM(9964)) , 

8 (XG(1 ), AM(lOOOil)) 


equivalence (tLN(n,AM(70an), (FPTAll(n,AH(7564)),(FMTAU(n, 

1 AM(76H7)1, (FME(U ,AM(7610) ) , (FPtZ(I) , AM(7933) ) , 

2 (FMEZU) .AM(6056)) , (VBM(n »AM(ftI79)), (VaM(1),AM(8302) ), 

3 CVCMf n,AM( 8425)), (FPfc { ) ) , AM (8548 ) ) 

NOTE THAT ’>Hl PARTIAL DFWIVATIVtS (tHIT THE FLUX) ARE CORRECT ONLY 
NHLN TnL FLUX LiilTTi-P T RO”. THE '-.'ALl EQUALS WALLC A»Et ( 1 5 -»>I , E * THE 

temperaturfs must be continuous 


WALLR s EX(1) 

HALLE « F.X(2) 

EDCP s EX(3) 

00 25 Jsl,NY 
BFT(NY,J) e 0, 

BFT(J,NYP) ■ 0, 

AT(NYfJ) 8 0, 

00 25 I81,NY 
25 HIM(I,J) 8 0, 

NYP s NY * i OF.RS 

NYM s nY • 1 

V CALCULATE OPTICAL DEPTHS 

EX(l) 8 1. 

TAUT(l) 8 0, 

00 I 1*2, NY 
V 5 TMUa)/TMU(l8l) 

VlsV-l, 

0YAL80Ya-U*ALF 
IF(ABS(Vl).CT,0,0n GO TO 2 

TAUT(n«(l,+Vt*(0.5*Vl/24,*(Vlf2,)))*DYAL*TMU(Nl) 

OMa)BDYAL*(0,5»Vl/8,*(l,33333335-vn> 

0P(I*l>e0YAL*<0,5+Vl/2a,*{a,-.Vl)) 

CO TO I 
2 V38AL0C(V) 

V32 a V3 * VS 0ER8 

TAUT(n8Vl/V3*TMUn«l)*0YAL 
0H(I)t0YAL*(V3*Vl/V)/V32 
•0Ptl8n80VAL*(Vj8V3)/V32 
I CONTINUE 

C*8***CALCULATE transport INTEGRA. ,8 AND DERIVITVES 
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1 = NY 

if( iHS((npu)-Rtt: (I)), (nP(n+nEEcn)),LE,,oooooi)HPa)sBEt(n 
ip(i) -cLf.cn 
DO 31 n=?»NY 
EX(I)=n.i’(-TAUT(I )3 
ELN(n = ALOC;(BFE(n/BEL(I-l)) 

DLNr. rAUTC D-tLI'iCn 
D'j.-'l=fLN(n 

VOMs (RLF ( I« 1 ) -BLf ( I ) *t X ( I ) ) /DEN 
FiPci-n-E jPcn*cYcn ?-''OM*DOM 

FPUUn«n = -f IP(I-n+CI)ll«*OLE(I-l)-VUM*ELN(I))/OEN 
FPECI"! ) = (OUM-TAUT(n/y(:£(I-n*VtlM)/of.N 
FPEZn-'nsCVUM/BtE f n*UUT(n“fcXU)*DllM)/Df.N 

31 1=1-1 

Fl^cnscr 1P( j)+BEt(l))*WALUR + FlM(l)-BEEU) 

DO 30 1=2, NY 
Dt:NsLUN;n + TALlf (1) 

DUHs-ELNCn 

VUMs(QtECn-BFEn-l)^LX(I))/OEN 
F JM(n=r!H(I-,l)*FX(l )tvUM*DUM 
FMTAUC13--F IM(IH (vUtvr:LNa) + DUM*Rtk(n)/DLN 
FME(n = CDuM-V iM/tU-LCn ‘Uimm/DEN 
30 FHeZ(l) = (VUM/Bn {l-n''TAUT(l)-tX(I)*DUM)/DEN 
DO 32 J=1,nyP 
VBHCJlaO, 

32 VAM(J)=0, 

VAMCNY) = FBCD 
AY(NY,NY) = EBCD 
IsNY 

DU 37 11 = 7. , NY 
DO 36 J=I,NY 

V A '■i ( J / - V ' J J ) * i, X ( I ) 

56 VBH(J) = VUM(J)*fcx(n 

Ve»i(NYP)svtiH(NYIO if;xm*FPTAUa-l)/ALF*TAUT(l) 

VBN { 1 ) S VbM ( n +n> T All ( J - n *DM ( I ) 

VRMC l-l)sVBM( I-l )+FPT/-UCl-J)*DP( l*ti) 

VAMCI)svAM(l) + FPf,Z(I-l ) 

VAM(I*n=VAH I-l)<*FPt(l-l) 

1 = 1-1 

lP2=l+2 

IPl=l+l 

DUH a FPTAU(IVDYll)*fAUTtlPU 

VBl, 

tllat 

UC3 AS 12aH,NY 
W!M(lIl»n a V*DUM 

V a v*tx;n n 

111=111-1 

V 8 -WAURA'WlMCl, I) 

WINUPl»na-FHTAU(lPn/DY(I)*7AUT(lPl) 

DO «6 IZ-- W1PI 
V=V*tX(lZ5 

«6 s WlM(n,n ♦ V 

IF(IP2,r,T,NY) DO TO «0 
00 a? lZalP2,NY 

47 W!H(1Z,I) s W1M(1Z-1»I)*EX(IZ) 

4B BFT(I»N'P)sv8MCNYP) 

00 37 JalfNY 
BFT(I»J)=VUM(J) 

37 AT(l»J)aVAM{J) 

DO 35 JaUNYP 
VBIi(J)=VBM(J)*WAUR 
35 yAN(J)=VAM(J)*WALLW 

VAN(n«VAM(l> + MAU.E-l,+WAl,lR 
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on 3/4 I-1,NY 
irci, 1.0,1) no Tn 335 

IM=NY 

JF (WAUP,l.h,0,) 

00 ii 

VAMf 0)=VAM(J)*tX(I ) 

33 Vi‘-UJ)=Vt‘MU)*t-X(n 

V»MCNYP) = VBM(NYf>)> (- X(n-tFMTMJ(I3/ALF*7AUT(l) 
VBM(l-l)sVBM(j,-nTrMTAUU)4r<P(I-l) 
VPB(I)=VbM(I) + M1TAUf n*Df'(n 

VAMU"! ) = VAM(I~1 )4f M[, Z(I) 

VAM{l)r.VAM(l) + FHf.(n 
BFT(l,NYP)=»•VBH{^'VP)♦F^FT(IrNYP) 

335 on 3i» .1-1, NY 

BFTtI,J)r-VfiM(J3 4t>FT(I,.J) 

3fl AT(l,J)c‘.VAM(J)4ATnMl) 

RFTI.*RM 

END 


2or 



